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Between these covers you will find a wide variety of software ranging 
from business applications to games and hardware utilities and much 


more. 
of OSI's computer systems. 


These widely varied programs highlight many different aspects 
The individual program descriptions were 


limited in order to allow the maximum amount of software for you the 
user. 


HOBBIT QUIZ ---- 


This program will run on all machines. It is a short quiz about 
Tolkien's book "THE HOBBIT" . 


3 NR2z4:NQ=4 
3S FORI21 T0238: PRINT : NEXT 
1@ FORI21T09: READQS : PRINTQS : NEXT 


14 FORI=1T014: PRINT : NEXT 
12 GOSUB1O8S 


45 FORI=4TONG 

4? FORIO=LTO3@: PRINT : NEXT 

20 REAOGS, RA, AS(1), AS(2), ASC3>, ASC4), DSCL), D$C2), D$C3), D$C4) 

3@ PRINTQS$: PRINT: PRINT: FORJ=1TONR: PRINT") ", ASCJ) :NEXT 

35 PRINT: INPUT“WHAT IS YOUR" ANSWER"; A 

49 IFAONRORAC INT (AORACLTHENPRINT “WHAT ?" : GOTO35 

45 IFR=RATHENLOG , 

47 FORL=1TOWC:IFW(LSATHENPRINT"NO, YOU TRIED “A$(A>:PRINT:GOTO3G 
48 NEXTL 

S@ PRINTDS(A):PRINT"TRY AGAIN“ 

$5 WC=WC+1: IFWC=NRTHENWC=0 

68 WCWC>=A 

65 GOTO?S 

400 PRINT:PRINT"RIGHT! “ASCAD" IS CORRECT. “:PRINTDSCAD 

41@ GOSUB1200 

428 FORL=1LTONR:W(L)=9:NEXT 

208 NEXTI 

240 PRINT:PRINT"YOU WON!“ 

220 PRINT“YOU HAVE ANSWERED ALL"N@"QUESTIONS CORRECTLY. 

238 INPUT“DO YOU WANT TO PLAY AGAIN": as 

240 IFLEFTS(QS, 1)="Y"ORLEFT$(Q%, 1)3"Y" THENCLEAR: GOTO3 

250 PRINT:PRINT"THANK YOU FOR PLAYING WITH ME. GOOD-8YE. 

4@@ END 

5Q@ DATA"THIS IS A QUESTION AND ANSWER GAME ABOUT THE HOBGIT. BY 
S49 DATAJ.R.R TOLKIEN. "* 

S2@ DATAI WILL ASK YOU QUESTIONS ABOUT THE BOOK. ‘OU WIN WHEN YOU 
53@ DATRHAVE GOTTEN ALL THE QUESTIONS RIGHT. IF YOU NEED HELP ASK 
S4@ DATAYOUR TEACHER. REMEMBER THAT A COMPUTER IS NOT VERY SMART. 
S5Q DATARFTER ALL I AM ONLY A MACHINE! ““ 

S6@ OATAWHEN YOU ARE READY TO BEGIN TYPE “R’ AND THEN PUSH ‘RETURN’. 
60@ DATAWHICH ONE DO YOU THINK IS THE MAIN CHARACTER? 

65 DATA2, FRODO, BILSO, GANDALF, BARD 

64@ DATA"NO, FROOO IS ONLY IN THE LORD OF THE RINGS BY TOLKIEN. “ 
645 DATABILBO IS THE ONLY ONE WHO IS IN EVERY CHAPTER. 

620 DATA"GOOD GUESS, BUT GANDALF IS NOT IN THE STORY AS MUCH AS BILBO" 
638 DATA"BARD SHOOTS SMAUG, BUT HE DOES NOT DO MUCH ELSE. “ 

65@ DATAWHAT KIND OF CREATURE WAS BILBO? 

660 DATA DWARF, DRAGON, HOBBIT, ELF 

67@ DATA"NICE TRY, BUT BILBO WAS EVEN SMALLER THAN A DWARF. “ 

68@ DATA“SMAUG IS THE NAME OF THE ORAGON. BILBO IS NOT A DRAGON!" 
69@ DATATHE BOOK IS CALLED THE HOSBIT SECAUSE OF BILS0 BAGGINS 
695 DATA“NO, ELVES ARE TALL AND ARE NOT USEUALLY THIEVES" 

709 DATAWHICH ONE CAN TURN INTO A BEAR? 

75 DATAL BEORN, ELROND, BILBO, THORIN 

748 DATABEORN COMES TO THE BATTLE OF FIVE ARMIES IN THE BEAR-SHAPE 
745 DATA"NO, ELRONO IS THE HALF-ELF WHO READS THE SWORDS 

72@ DATA"NO, BILBO IS A HOBBIT!" 

725 DATA“NOT QUITE. THORIN IS THE KING OF THE DWARYES. “ 

75@ DATAWHO STEALS THE BIG GEM CALLED THE ARKENSTONE? 

755 DATA, GANDALF, GOLLUM, BILBO, BALIN 

760 DATA"NO, NOT GANDALF THE WIZARD. 

765 DATA"NOT REALLY. GOLLUM IS THE MONSTER WHO PLAYS THE RIDDLE GAME” 
778 DATA"BILBO GIVES THE ARKENSTONE TO THE ELF-KING. “ 

775 DATA“SORRY. BALIN IS THE DWARVES’ OLD WATCHMAN. “ 

4000 PRINT: PRINT 

4002 INPUT"TYPE “RY TO GO ON": RS 

4065 IFRS<>"R"THENPRINT "WHAT?" : GOTOLAe0 

4010 RETURN 


DECIMAL TO HEXADECIMAL CONVERTER ---- 
all machines. It converts decimal 


This program will run on 
numbers to hexadecimal numbers. 


S PRINT"OECIMAL TO HEXDECIMAL CONVERTER“ 
18 INPUT x 

12 PRINT"2°*; 

15 8=4996 

28 ABX/4696 :GOSUE 30 

<1 B=Z56 


AC10 THEN PRINTA: 

R216 THEN PRINT“A"; 
Aszii THEN PRINT"B"; 
Awi2 THEN PRINT"C"; 
Aiwi3 THEN PRINT“D"; 


HEXADECIMAL TO DECIMAL CONVERTER 
This program will run on all 
numbers to decimal numbers. 


3 FORI=#=1T0O2@0: PRINT: NEXT 
S PRINT°HEXDECIMAL TO DECIMAL CONVERTER” 
? FORI=1 TOS: PRINT: NEXT 


FORI=1T04 

PRINT"DIGIT #°;I::INPUT ASCT) 
IFAS( I )="A* THENAC I )=10: GOTO1GO 
IFAS( I )="B" THENAC I )=11:GOTO1G2 
IF ASC I )="*C* THENAC I )=12: GOTO1G0 
IFAS¢ I )="D" THENAC I =13: GOTO1G0 
IFAS( I ="E* THENAC I =14:GOTOLGG 
IFAS( I )="F" THENAC I =15:GOTO1La 
ACT =VALCASCI)) 


machines. It converts 


IFAC IT )<@ORACT ) >LSORAC I< DINTCACT ) DTHEN2ZO 


NEXT 

PRINT: PRINT 

PRINTAC 1 )*¥40S6+AC 2 )#255+AC 3 D*1LE+A( 4) 
PRINT: PRINT: PRINT: PRINT: GOTO1LG 

END 


hexadecimal 


AMAZIN oou- 

This program will run on all machines (Note: you must use smaller 
mazes if programed on a Cir.). It will generate a maze to the 
dimension specified. The generated mazes will always have at least one 
correct path. 


SQ PRINT“AMAZIN" ne ro oa 
sagt 202 GOTO 268 
7@ PRINT"THIS PROGRAM TAKES A LONG TIME ON LARGE MAZES 210 IF ROH THEN 249 
SQ PRINT"MAXIMUM SIZE IS 23 BY 23 mdi IF SOV THEN 230 
acini 226 LET R=4 
148 OIM W235, 25>, ¥625, 25) oot LET Seq 
444 FOR I=@ TO 25 322 GOTO 250 
442 FOR J=3 TO 25 — = = 
413 WEL. J920:4CL a8 Se 
144 NEXT J 234 LET SaSt1 
445 NEXT I ain Pee 
ai © " “TEM. « 4 e + 

~ ebb YOUR WIDTH"; : INPUT H:PRINT “PND LENGTH"; © INFUT ¥ Sasi ee Sea ne ib 
430 IF HC2 GOTO 132:IF H>23 GOTO 432:1F ¥<2 GOTO 432:1F ¥o22 GOTO az2 40 268 IF R-d=@ THEN S30) 
eats a ste nae 

“a 09 ec 0 f aa oe 
— ipl MERNI S DIMENSIONS. TRY AGAIN. i el Reda Le os NE 
441 GOTO 120 290 IF Ral THEN 320 ms 
480 PRINT 380 IF WCRtL S38 THEN 33a 
154 PRINT 340 LET X sINTCRNDCAD#3+4) 
460 LET @=0 220 IF X#1 THEN 790 
461 LET 2=0 324 IF Xe2 THEN S20 
462 LET X#INT (RNOCAD#H+1) 323 IF Xe3 THEN S60 
163 FOR I=4 TO H 328 IF SOV. THEN 34@ 
470 IF I=X THEN 173 | 334 IF det THEN 370 
474 PRINT “:-=*; 332 LET Q=4 
472 GOTO 180 ; 333 GOTO 330 = 
473 PRINT“: °3 340 IF WCR, $#1)<O8 THEN 378 
480 NEXT 1 350 LET X#INTCRNOCAD*3+1> 
490 PRINT “:" 360 IF X#1 THEN 790 
494 LET C#4 361 IF Xs2 THEN ca 
192 LET W(X) 4)aC 362 IF Xa3 THEN 346 | 
492 | ET Rates 3’O LET X@INTCRNOCAeeeL> 


380 IF Xai THEN 730 
381 IF Xs2 THEN 822 
3390 IF Re THEN 479 
400 IF WCR+L, SOO THEN 4779 
404 IF S<oV THEN 420 
440 IF 220i THEN 450 
441 LET Quai 
412 GOTO 430 
420 IF WCR,S*4)@ THEN 480 
430 LET X#INT (RNOCA)*3+1> 
440 IF Xe THEN 792 
4414 IF Xe2 THEN 360 
442 IF X#3 THEN 910 
458 LET XsINTCRNOCAD#2+1) 
460 IF X21 THEN 790 
461 IF Xs2 THEN S6@ 
470 IF Sv THEN 490 
$30 IF 21 THEN 520 
481 LET Qa1 
4682 GOTO 560 
490 IF WIR, $4198 THEN Sao 
S09 LET XsINTCRNOCAD #2443 
310 IF X=i THEN 799 
Sia IF X=s2 THEN 310 
S$2@ GOTO 790 
S20 IF S-120 THEN 670 
S4Q IF WIR, S-12@ THEN 670 
S41 IF R*H THEN 612 
S42 IF WcR+t, SOO THEN 612 
S3@ IF SOV THEN S60 
SSi IF Zsi THEN S96 
SS2 LET Q=t 
GOTO 378 
IF WCR, $+42<OO8 THEN S96 
Xs INTCRNOCA) #341) 
Mai THEN S20 
THEN 366 
THEN 9428 
INTCRNOCAD#2+1) 
THEN S20 
THEN 869 
¥ THEN 630 
THEN 660 


SSSRR SIS 
eet: 
axGk 


eg 
& 
o-0 0-6 0-0 O-0 
x 
es 


Eee dae 
ging 


bot 
| 
ze 
~ 
e 


$+1)20 THEN 669 
INTCRNOCAD +4) 
THEN 820 


Sg 55h 
gaay 
ie 


i 


THEN 748 

WCR+L, SOO THEN 740 
SOY THEN 70@ 

F 24, THEN 729 

631 LET Q=1 

692 GOTO 323 

TOO IF WCR,54+4)00 THEN 758 
728 LET R3INTCRNOCAD*E+1) 
720 IF X81 THEN Séa 

rai IF Xe¢ THEN 919 

738 GOTO 366 

r49 IF SOY THEN 766 

ro IF cai THEN *SO 

SL LET Qat. 

ree GOTO 770 

760 [F WOR, S298 THEN °S0 


SESISASESRRE 


ons OW OO OS 


rrQ GOTO 318 

768 GOTO 12802 

190 LET WCRed, Sat 

S00 LET Cate+t 

$01 LET ¥VCRoL, Soa2 

802 LET ReR-1 

310 IF Catwi¥+, THEN 18498 
$44 LET Qa 

812 GOTO 260 

820 LET WER, $-4) eC 

8390 LET Cace+1 

840 LET VCR, S-1)84 

841 LET Sa5-1 

842 IF CaH¥+1 THEN 1010 
$30 LET Q=0. 

$51 GOTO 2628 

$66 LET WCR*1L, 552C 

$78 LET CaC+1 

$71 IF ¥¢R, 5929 THEN 389 
372 LET VCR, 5783 

873 GOTO 33908 

$8@ LET ¥C(R, 5>82 

338 LET Rak+1 

IF CaH*¥+1 THEN 1¢12 
GOTO 332 

IF Qs1 THEN 36a 

LET WCR, S193 

LET Caled 

IF VCR, 5920 THEN 949 
LET ¥CR, $3s3 

GOTO 939 

LET ¥CR, $>a4 

LET SaS+1 

951 IF CateV¥+1 THEN 1010 
352 GOTO 260 

LET 2=t 

970 IF VCR, S380 THEN 962 
374 LET ¥CR, Sos3 

972 LET Qa 


SEP ERRSERS 


g 


962 LET Ret 

999 LET Ss 

994 GOTO 250 

1@0@ GOTO 219 

1018 FOR Jet TO ¥ 

40141 PRINT “I"; 

10142 FOR [et TO H 

1043 IF ¥¢I. JO<2 THEN 1028 
1020 PRINT “* 8 °%; 

1822 GOTO i849 

1020 PRINT “ [%; 

1049 NEXT I 

1041 PRINT 

1043 FOR I=t TO H 

1045 IF ¥YCI. J>=9 THEN 162 
1050 IF ¥CI. Jo#Z@ THEN 1260 
105% PRINT “: °%; 

1952 GOTO 1070 

1860 PRINT “:-—"; 

1079 NEXT I 

1674 PRINT "“:* 

1072 NEXT J 

1074 ENO 


A DECISION MAKER ---- 

This program will run on all machines. 
choice from a group of items you are 
consideration factors specified by you. 


468 REM AA DECISION MAKER 
118 REN WRITTEN BY PHIL FELDMAN AND TOM RUGG - APRIL 1977 
128 DIN F$<(10), L$(18), F(18), MC28, 18), ¥C18), 2¢418) : PRINT 


best 
into 


calculates the 
taking 


It 
considering, 


746 PRINTLS(J>: INPUT NCJ, 19:1F MJ. 12236 THEN 78 
723 PRINT" C’MON. «NO NEGATIVE NUMBERS. TRY AGRIN ": COTO 7 


bape He ) we rage TIB.NEST J:PRINT:HCL ID=10:NEXT I:FOR T=4 10 F0:C=0:F0R Jad 10 12 
Fe Greer SOCIETY OER ee ear Ce ry TG CMCHNCT TS HEMT THOR ied TOI 19: IK Dad DCMT SENT 1 


1d PRIMAL T REED TD U0 15 QRENIGE REGRET TOS TOE Pe seno aye, 728 FOR Jet TO LO:YC2D=0:FOR Taf TD FO:V(D=VCIDAHC D4F(D 
RINT"ALL D0 1S ORGANICE INFORMATION YOU ALREADY HAVE. 265 sexT I:NEXT J:FOR I=L TO 48:2¢1)=1:NEXT:CaL0-4:FOR J=1 70 LO 


166 PRINT:PRINT® WHICH OF THESE BEST DESCRIBES THE TYPE OF" 

176 PRINT"DECISION YOU HAVE TO MAKE?" : PRINT 

168 PRINT" - CHOOSE AN ITEM FROM SEVERAL ALTERNATIVES" 

150 PRINT"2 - CHOOSE A COURSE OF ACTION FRON SEVERAL ALTERNATIVES" 
200 PRINT: INPUT*WHICH TYPE (1 OR 2) 00 YOU HAVE TO MAKE?";C 

248 IF C1 OR 2 THEN 208 

220 PRINT: IF C=i THEN PRINT" WHAT TYPE OF ITEM IS IT THAT YOU 
238 IF Cai THEN PRINT“NEED TO DECIDE UPON": INPUT S$ 

246 IF C=2 THEN S$s*COURSE OF ACTION 

258 PRINT:PRINT® 1 WILL NOW NEED A LIST OF ERCH °3 S$ 

268 PRINT*THAT YOU ARE CONSIDERING PLEASE INPUT THEM ONE AT A 
278 PRINT*TINE. THE ORDER IS NO PARTICULAR IMPORTANCE. 

268 PRINT: INPUT" = FIRST, HOW NANY ARE THERE ALTOGETHER"; L9 

298 IF LO>=2 AND LOC=i8 THEN 316 

308 GOSUS 898:G0TD 288 


318 PRINT:FOR I=1 TO LO:PRINT:PRINTSNUMBER “3 15" PLERSE 
320 INPUT LSCI):NEXT I: PRINT 


338 PRINT"O. K «THIS IS THE LIST UNDER CONSIDERATION® :PRINT 

346 FOR [= TO L8:PRINTI; TABS); LSCI):NEXT I:PRINT:GOSUS 903 

3B IF 8$OVS THEN 258 

368 PRINT:PRINT" NOM HOW MANY DIFFERENT FACTORS ARE IMPORTANT 
378 PRINT *TO YOU IN CHOOSING A °: S$: INPUT F@ 

368 IF FO>=1 AD FRC=10 THEN 400 

398 GOSUB 896:G0TO 363 

468 PRINT:PRINT® I NEED A LIST OF EACH OF THESE FACTORS 

418 FOR I=1 TO FO:PRINT:PRINT® FACTOR NUMBER °; 1: INPUT F$(1>:NEXT 
420 PRINT:PRINT® NOW LOOK AT THE FOLLOWING LIST OF FACTORS YOU 
438 PRINT*HAVE PROVIDED RAND DECIDE WHICH IS THE MOST IMPORTANT 
448 PRINT:FOR I=1 TO FO:PRINTI; TABCS); F$¢I> :NEXT 

488 PRINT:PRINT" ‘HICH FACTOR (BY NUMBER) IS MOST IMPORTANT? 

468 PRINT*CINPUT @ IF YOU WISH TO CHANGE THE LIST®: INPUT F2 

476 IF F2=@ THEN 368 

488 IF Fo<d OR FOOFO@ THEN 488 

499 PRINT:PRINTS OK SUPPOSE WE HAVE A SCALE OF IMPORTANCE THAT 
S88 PRINT*RANGES FROM 6 10 18. LET’S SAY °; FSCF2) 

S18 PRINT*HAS A YALUE OF 19 SINCE IT IS AT THE TOP OF THE SCALE ON 
S28 PRINT*THIS SCALE, WHAT VALUE NOULD EACH OF THE OTHER FACTORS 
530 PRINTHAVE (DECIMAL NUMBERS ARE 0. K )?°:PRINT:FOR I=t TO F@ 
540 IF I=F2 THEN 578 

559 PRINTFS(1>: INPUT FCI): IF FCID3=@ AND FCI)<=18 THEN S78 

568 PRINT® YOUR INPUT IS NO GOOD. TRY AGRIN “:GOTO 550 

578 NEXT: FCF2)248:C=8:FOR I24 TO FO:C=C+PC 1): NEXT:FOR Is TO FO 
S88 FCID=FCIDAC: NEXT: PRINT:PRINT® NOW CONSIDER HOW EACH °: S$ 
S98 PRINT*RATES WITH RESPECT TO ERCH OF THE FRCTORS. WE WILL 


608 PRINT*CONSIDER EACH FACTOR SEPRRATELY R THEN RATE EACH 
648 PRINT S$; ° IN TERMS OF THAT FACTOR ONLY. *:FRINT 
628 PRINT*LET’S CONSIDER “LS(1);° TO HAVE A 
630: PRINT°VALUE OF 16 ON EACH SCALE THEN EVERY STHER "35 
640 PRINT"WILL GE GIVEN A NUMBER HIGHER OR LOWER THAN 12 
_ 650 PRINT*ACCORDING TO HOW MUCH BETTER OR WORSE THAN 
668 PRINTLS(1)5° YOU THINK IT [5. ":FOR I=4 TO F@:PRINT 
676 PRINT" CONSIDERING "3 F SCI; " ONLY, AND 
600 PRINT*ASSUNING °;L$(41);" HAS A VALUE OF 12, 
698 PRINT"WHAT VALUE WOULD YOU GI'YE TO ERCH CF THE FOLLOWING:* 
r30 FOR Ja2 10 U8 


778 FOR T= TO C:Ml=2¢1) MO=Z¢144): IF VCNS22V(N2) THEN 12@ 
708 ZULHMISNL: 20D 

798 NEXT I:NEXT J:CL=2(4) :C2=2(2) :Ca=280/V(CL) :FORJ=L 10 Ld 
$88 YCJ)=C#4CJ) NEXT : PRINT : PRINT :D=4¥(C1)-¥(C2) 

840 PRINT" WELL, YOUR BEST CHOICE SEEMS TO BE “sL$<C1) 
828 IF 0X48 THEN PRINT" BUT IT’S PRETTY CLOSE 

838 IF 0<28 AND 02=48 THEN PRINT"BY A FAIR MARGIN 

848 IF 0>=28 THENPRINT"BY A GOOD-SIZED MARGIN 

656 PRINT:PRINT® HERE’S THE FINAL LIST WITH “sLS<CL) 
968 PRINT"GIYEN A VALLE OF 108 AND THE OTHERS SET ACCORDINGLY 
678 PRINT: PRINT:PRINT°RATING®. S$:FOR J=1 TO L8:C=2(J> 

$80 PRINT ¥(C),L$(C) : NEXT :END 

69@ PRINT’ THE NUMBER MUST BE BETWEEN 2 AND 10°: RETURN 
900 INPUT" 1S THIS CORRECT CYES OR NOD“; AS 

918 BS=LEFTSCAS, 1): RETURN 


LEAST SQUARE ---- 

This program will run on any machine. It calculates the "best 
fit" straight line through a set of given data points (there must be 
at least three data points) . Then it will give you the equation of 
the line with the line's deviations. 


16 REMee PRUL JOVIAK sree 
13 REMEtLEAST SQUARE +e 
CLEAR 


28 

48 DIMZ(488) 

38 DIMKC130> ONY 488) - IML (100) 

68 FORT=416298:4(1920:'9¢1=G:NEXTI 

38 FORI2LT032: PRINT: NEXTI 

180 PRINT"THIS PROGRAM WILL" :PRINT"CRLCULATE THE £QUATION" 
402 PRINT“OF A LINE IN THE FORM":PRINT"OF “Y=MX+8’ FROM DATA" 
410 PRINT"POINTS. “:PRINT 

445 PRINT"YOU NEED AT LERST 3": PRINT"DATA POINTS" 
428 PRINT: PRINT: PRINT"HOW MANY POINTS ARE" 

123 INPUT"BEING CONSIDERED’; A 

125 IFACSCRADLGOTHENL1S 

138 PRINT: PRINT: PRINT: FORIZ4TCR 

148 PRINT“POINT $95 23 : INPUT"“X, 97"; BCI), YCID 

126 PRINT: PRINT :NEXTI 

155 FORISLT030: PRINT: NEXT 

178 PRINT: PRINT: FCRI=LTOR 

488 PRINT“POINT $°; 

183 PRINT 

185 PRINT"X VALUE": XCI) 

190 PRINT"Y VALUE": YCI> 

191 PRINT 

193 GOSU8200: NEXT 

195 INPUT“LIST AGAIN"; YS: IFLEFTS(YS, 192°" THENL7@ 
1398 GOTS308 

200 INPUT*CORRECT"; Y$ 

205 PRINT: PRINT 

213 IFLEFTSCYS, 1)2"Y° THENRETURN 

230 PRINTXC19; ") "5 YCI) 

eso PRINT: PRINT 

248 INPUT"CHANGE TO °X, 7" XCI),¥C2) 

245 PRINT: PRINT 

208 RETURN 

308 FORI=LTOR 

S18 $1254+X( 1) :S2e52+7¢ 1) 

333 S32S3+K(1)°2:S5=aSS+X( 1 #V¢1> 

335 S9=S9+¥(1)°2 

389 NEXTI 

238 $6251°2: G=an*S3-S6 


356 IFG=GTHENPRINT “ERROR :GOTC1306 
368 M=(R*SS-S1452)/G 

378 B=(S2-M*S1)/A 

406 FORI=LT032: PRINT : NEXT 

568 PRINT“THE SLOPE IS":PRINTM 
S35 PRINT. 

S49 PRINT“THE INTERCEPT [5° :PRINTB 
SeO PRINT: PRINT 

558 I[FM=@THENL EG? 

SSS INPUT“READY": ‘/¢ 

698 FORI=LTCA 

6438 2¢1)=4eX+8 

628 $254 19-261) 2 

638 NEXT? 

648 Y=aSOGR(ABS(S/A-1) > 

638 FCRJS1TSA 

668 L(J)st*X( J +6 

673 S4aS4e CC M-L6I)9°2 

6398 NEXTJ 

748 G1=(R-2)4G 

728 M12SQRCABS(A*S4/G1) > 

738 Bi=SORCABS (S4452.'G4 >) 

739 FORI@LTO20: PRINS: NEXT 

748 PRINT"DEVIATIONS: * 


743 PRINT 

738 PRINT"SLOPE: “:PRINTMA 

foo PRINT 

768 PRINT“ INTERCEPT: “: PRINTB4 
765 PRINT 


778 PRINT'Y: "GY 

783 ReSS-($1452)/R 

798 R12S3-S1°2/A: R22S9-S2°2/A 

S68 RISRAAR2 

S1o CaR/ CRS. SD 

S40 PRINT: PRINT :PRINT"CORRELATICN COEFFICIENT: "C 
388 PRINT: PRINT 

1086 INPUT“AGAIN": AS 

1826 IFLEFTSC(AS, 1)="9* THENLS 

43999 ENO 


HEXADECIMAL=DECIMAL-OCTAL CONVERTER ---- 


This program can be run on all machines. It converts hexadecimal 


numbers to decimal numbers, decimal numbers to hexadecimal 


numbers, 


octal numbers to decimal numbers, and decimal numbers to octal 


niumherea . 
4 REM HEX TO DEC 
S PRINT: PRINT “THIS IS NUMCON": PRINT 
48 PRINT: INPUT“HEX “3 HE: IFHS="9"° THENLEO 
20 PRINT: 0=8 
38 X=ASCCLEFTSCHS, 19) :X=K-ASCC "8" : IFXDOTHENX=K-7 
49 D=D¥*16+x : HS=MIDSCHS, 2) : IFHSO"“THENSS 
39 PRINT: PRINTD: PRINT :GOT01d 
164 REM DEC TO HEX 
146 PRINT: HXS="8123456 7S9ABCDEF ” 
4223 INPUT"DEC °; 0: IFD=8THENZOO 
429 H$="" -FORI=41104 : X=INT(D/16) : HS=MIDSCHXS, D-X#164L 1) +H$: DSK: 
431 NEXT I 
44@ PRINT: PRINT °S$“+H$:PRINT:GOTO120 
208 REM OCTAL TO DEC 
248 PRINT: INPUT"OCTAL “; CCS: IFOCS="3" THENSG@ 
22d 0=8 
226 X=ASCC(LEFTS$(OCS, 1) : X=K-ASC( "9" : IFXOSTHENK=K-7 
240 D=O+*8+X : OCS=NIDSCOCS, 2): IFOCSO““ THEN2Z33 
200 PRINT: PRINTD: PRINT: GOTO219 
332 REM DEC TO OCTAL 
318 PRINT: OCTS="01234567" 
320 INPUT"DEC °; 0: IFD=8THENS 
338 C$="": FORTHRLTOS :XSINTCD/8) : OS=MIDSCOCTS, D-X4841, 1)+05 
348 Dex: NEXT I 
353 PRINT: PRINTCHRS<(64)+CS: PRINT :GOTO32O 


DECIMAL TO BINARY TUTOR'S AID ---- 
This program can be run on any machine. It converts 
numbers to binary numbers. 


18 REM CECIMAL TO BINARY TUTOR’S AID 
2d PCWERS=" 15 44 13 12 14 10 99 OS G7 U6 SS 84 83 G2 91 HO" 


33 HALFEYS=" 88 84 82 G41 89 84 B2 B4 BS 34 G2 G1 GB 34 Be BL" 
3S SINARYS="94" : BASE=2 

38 FORK=LTO33: PRINT: NEXT 

49 INPUT"STARTING YALUE "37: Y=7-1 

45 Y=/+1:C&CMAL=/ 

38 IFDEC<2 OR CEC>E6S525 GR DECC INTCCEC)THENPRINT: PRINT “WHAT”: GOTO 42 
38 FORI=LTC16 : TEMP=INTCDECIMNAL/BASED 

188 RNSWERS="_ “+MIDSCBINAR''S, DECIMAL-TEMP*BRSE+L 1)+ANSWERS 
448 DECIMAL=TEMP : NEXT 

158 FORX=15TORSTEP—1 

4168 PRINTPCWERSS 

473 PRINTHALFBYS 

150 FORK=1T043: PRINT TABCK>; “-"3 :NEXT: PRINT 

193 PRINTANSWERS; “ OECIMAL YALUE = “;¥ 

268 FORX=1TO048:PRINT TABCR)5 “="5 -NEXT: PRINT 

228 PRINT: PRINT: ANSWERS="":GOTOdS 


decimal 


+ 
12 
14 
15 
16 
i? 
18 
1S 
2U 
es 
30 
32 
c= 
37 
4G 


36 


RESISTOR --- 


This program converts to and from the color codes on resistors. 
The program will run on all machines. 


INPUT*DO YOU WANT DIRECTIONS”; GS 

IF ASC(G$I="78 THEN 2S 

PRINT : PRINT: PRINT” A RESISTOR HAS 4 TO 7 COLOR BANDS ON" 
PRINT: PRINT‘IT. THE FIRST 3 ONLY ARE THE RESISTANCE IN OHMS” 


PRINT: PRINT "THE LAST GIVE INFORMATION ABOUT WATTAGE AND ” 


PRINT : PRINT “VARIANCE. *: PRINT” 


THE CORRECT END TO START IS THE ° 


PRINT: PRINT° OPPOSITE OF THE GOLD AND SILVER SANDS” 
PRINT: PRINT°AND CAN Be BLACK, BROWN, RED, ORANGE, ~ 
PRINT: PRINT" YELLOW, GREEN, BLUE, GREY, OR WHITE.” 


PRINT : PRINT : PRINT 

PRINT°THE FIRST 2 BANDS ARE THE BIGGEST AND THE* 
PRINT 

PRINT*SECOND BIGGEST DIGITS, ANU THE THIRD BAND" 
PRINT 

PRINT° TELLS THE NUMBER OF ZERO’ S AFTER THEM” 


PRINT: PRINT: PRINT 
INPUT" COLORS FROM NUMBERS*; GS 
IF ASC(G$)=89 THENZS& 


PRINT: PRINT: PRINT: PRINT* COLORS (3 ONLY)” 


INPUT AS, BS,CS 
FOR N=#1 TO 3 

IF N<>1 THEN 8@ 
GSAS: COSUB 24U0 
AS=CS 

IF N<>2 THEN 160 
G$=-BS:GOSUB 2686 
BS=CS 


106 IF N<>3 THEN 130 

185 GS=C$:GOSUB 2088 

116 C$=G$ 

136 NEXT N 

146 IF C%$="@° THEN CS=" ° 

145 IF C$="r° THEN C$="0" 

15@ IF C$="2* THEN C%="92" 

iSsS IF CS$="3° THEN C$="@aG" 

160 IF CS="4° THEN C$="9083" 

16S IF C$="S° THEN CS$="QG0000° 
176 IF CS$="6"° THEN CS="Q0000G" 
17S IF C$="°?7" THEN CS="9900800" 
180 IF CS$="8" THEN CS$="90G00000" 
185 IF CS$=#"S° THEN CS$="qg0u008CGuR" 


i186 IF CS="SILVER® THEN CS$="°#14tT-2° 


i87 IF C#="GOLD" THEN C$="*#106T-1"* 
18S PRINT: PRINT: PRINT 

i3@ PRINTAS; BS;CS$;° OHMS* 

26@ INPUT ANY MORE™;GS 

216 IF ASC(GS)=69 THEN 45 

215 END 

ZSG@ INPUT°RESISTANCE IN OHMS*;R 
Z2S2 IF R<16 THEN 400 

255 RGA=INT(LOG(RIZLOG( 18)) 

25/7 S=#.02 

2BQ RL=INTCR/1LETRO+S ) 

Z27G RZ=AINTCCRZ1LGTRO+S-R1 410) 
<S8 FCR N=1 TO 3 

285 IF N<>1L TREN 295 

296 G=RG-i:GOSUB 32006 


2392 RS=GS 

29S IFN<>2 THEN 310 

386 G=R1:GOSUB 3000 

365 R1S$=GS 

310 IF N<>3 THEN 325 

315 G=RZ:GOSUB 3006 

320 R2S=GS 

325 NEXT N 

3380 PRINT: PRINT: PRINT" IN THIS ORDER, THE COLORS ARE :°* 
335 PRINT: PRINTR1IS,R2S,RS 

348 PRINT: PRINT: PRINT 

345 GOTO 260 

400 IF R<1 THEN 500 

420 R1S="BLACK® : G=R:RS=" BLACK” 
425 GOSUB 3000: R2$=G$ 

436 GOTO 338 

389 RL=ABS( INTCLOG(RI/LOG< 18) )) 
58S RS#“R*1BTRL 

S86 RS=° 77777" 

S07 IF RL=#1 THEN RS$="*GOLD* 

5Q8 IF RL=#=2 THEN R$="SILVER” 

$18 RV@INT(RS) 

515 IF INT(CRS*1Q-RV819)9@ THEN $S7G 
523 RR#INT(CRS#1G-RV819) 

S2S GeRS:GOSUB 3000 

$30 R1$=G$:G=RR 

535 GOSUB 3086 

540 R2$=GS 

558 GOTO 330 

S70 R1S="BLACK*:G=RS:GOSUB 3088 
S75 R2S=G$S 

$88 GOTO 338 

2066 REM COLOR FINUER 

20S IF GS="BLACK” AND N=1 THEN GS=" ° 
2010 IF GS="BLACK® THEN G$="9"° 
2015 IF GS="BROWN” THEN GS="1° 
2626 IF GS="RED° THEN GS="2°" 
2802S IF GS="ORANGE” THEN GS$="3° 
2630 IF G$="YELLOW” THEN GS$="4° 
2835 IF G$="GREEN*® THEN G$="5* 
2646 IF G$="BLUE” THEN GS$="6" 
2645 IF GS="VIOLET® THEN GS$="7° 
2850 IF GS="GREY* THEN GS="8°* 
2OSS IF GS$="WHITE” THEN GS$="3" 
206G RETURN 

3886 REM COLORS FR. #°S 

3802 RESTORE 

3005 FOR 1=@ TO G:READ GS$:NEXT IT 
38626 RETURN 

4200 DATA *BLACK", “BROWN*, "RED", “ORANGE”, “YELLOW 
4005 DATA “GREEN", *“BLUE”, “VIOLET”, “GREY”, “WHITE” 
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NIGHT OF THE LIVING VOLKSWAGENS ---- 

THIS PROGRAM WILL RUN ON THE CIP ano SurPersoaro II onev. You are 
DRIVING THE CAR MOVING UP THE SCREEN. BUT WATCH OUT THE CARS COMING 
TOWARD YOU ARE FIRING AT wou. YOU MOVE RIGHT BY OCEPRESSING “2", LarrT 
BY DEPRESSING “1", ANO STRAIGHT BY OEPRESSING SOTH. YOU CAN FIRE BACK 
BY OFPRESSING THe “3" THE CLOSING NUMBER IS HOW MANY CARS YOU SHOT. 


1 REM 244 ge 

2 REM ### Corre 

3 KE=357e0ee: POKESS@, 1 

4 POKEKE, 64 

3S INPUTZL: FORX=1LTO035: PRINT: NEXT 
6&6 POKES41i117, 32 

10 FORX#53355STOS4219STEP32 

2@ POKEX, 147: POKEX+S, 146 


NEXT 
35 DP=53996: POKEDP, @ 
SQ RPSINT(RNO(Z1)#*4+1)+53355 
Si FORY=1T030: POKERP-RC, 32 
S2 RP=RP+INT(RND(Z1) #2+1) #32: POKERP, 1 
/ 53 FORX=1TOZ: NEXT: Z=Z*. 8788 

54 IFRP=DPTHENGO 
S8 RC=0: GOTOSe 
6@ FORX=110150: POKERP, X: NEXT 
61 POKERP, @: Z=75: POKERP—32, 32 
62 FORX=1 T0500: NEXT 

GOTOS@ 


80 POKEKE: Of: G=PEEK (KE) 
HEN 4. 


LF 
83 IFG=462THEND=-32e 
84 IFG2=254THENO=32 
8S IFG=246THENLOGCO 
92 IFPEEK (DP+0) =32THENDP=DP+D: POKEDP-D. Je 
93 IFDP<SS3S5STHENDP=0P+27*32 
94 IFDPSS4224THENDP=DP-27#32 
935 POKEDOP. ©: D=0 
100 FI=RNO(Z1) #5 
@ IFFID4THENLS®O 


GOTO490 

150 FORX=1T024: POKERP+32*#X, 139 

151 IFRP+32#X=DPTHENL9O 

160 NEXTX: FORX21TO024: POKERP+32*#X, 32: NEXT 
GOTO490 


190 FORY=1LTOX: POKERP+Y#32, 32: NEXT 
200 FORX=1T0150: POKEDOP. X: NEXT: POKEDP, 32 
205 PRINTKI: KI=@ 
CLEAR: RUN 
4909 IFI>OTHEN7TOO 
309 H=INT (RND (Zi) #23) +53963 
pa be) oe ee Ree 
= 


700 3) 23 ae ee 

710 POKEH, H(1) 

T7290 IFHSS4233THENPOKEH, 32: I= 

800 Q=INT (RND(Z1)#6-6) 

S01 IFQ=STHENRC=1 

802 IFQ=—-STHENRC=-1 

820 RP=RP+RC 

850 IFPEEK (RP )<S>32THENRP=RP-RC: RC=6 
860 IFRC<SOTHENPOKERP-RC, 32 


90Q@ NEXT 

1000 POKERP, 32: GOTOSO 

10000 FORX=1LTO03@: POKEDP-S2*X, 140 

10010 IFDP-32*X=RPTHENFORY=1TOX: POKEDP-32*Y, 32: NEXT: FORY=1TO1S0: 
11020 IFDP-32#X=RPTHENPOKERP, Y: NEXT: POKERP, 3a: KI=KI+1: GOTOS@ 
11030 NEXTX: FORX=1LTO3@: POKEDP-S32#X, 32: NEXTX 

11048 GOTO93 


1 


“ 
on 
~~ 
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SANTA AND EIGHT REINDEER ---- 


EIGHT 


THIS PROGRAM WILL RUN ON THE CIP ano SurPpereocaro II oncy. Ir xs 


TINY REXNOBER FOLLOWED BY SANTA AND HIS SLEIGH, WISHING YOU 


SEASON’S GREETINGS. 


ONUAPWUNE 


REMK. STEPHENS&P. JOVIAK: SANTA: IP 

DIMY (32): DIMZ(32): ara DIMV (32) : DIME (27): DIMF (27) 
Iai: H=4: DIMP (22): DIMO( 22) 

FORX#ITOH: READZ(X): NEXT: FORX#ITOH: READV(X): NEXT 
FORX=LTOH: READY (X): NEXT: FORX#ITOH: READW(X): NEXT 
IFH#®32THENLI1 

“Aarau 


1i GOTO14 

91 FORX=1TOS: READA(X): NEXT: FORX21LTOS: REAOB(X): NEXT 
92 FORX#1TO9: READC(X): NEXT: FORX#1LTOS: READO(X): NEXT 
93 FORX#1T027: READE (X): NEXT: FORX#1TO27: READF (xX): NEXT 
94 FORX=1TO22: READP(X): NEXT: FORX*1TO22: READO( X): NEXT 


9S _ FORK=-1TO-LeESTEP=-1: L2K+53943: H253596+K 
@ FORX#1T027: POKEH+E(X), F(X): NEXT 
FORX=1LTOS: POKEL-A(X), D(X): NEXT 
FORK=1105; POKEL-A(X)¢1, 92: NEXT 


: NEXT 
FORX=#1T012: POKEL+X, 162: POKEL+X+32, 188: POKEL+X-96, 164: NEXTX 
POKEL+13, 32: POKEL+4S5, 32: POKEL-83, 32: Lal-61 
FORX#1TOS: POKEL+X, B(X): NEXT: POKEL?4, 2: L2=L+30 
FORX#1LTO9: POKEL+X, C(X): NEXT: POKEL+1@, 32: IFK#-LETHENL300 
@ FORX=1LT0O22: POKEP (X)+H, 32: NEXT 
@ FORX=1T027: POKEH+E(X), 32: NEXT 


NEXTK: RETURN a6 
PRINT: PRINT“ 0.S. I COMPUTERS SAY... “: FORX#1TO@@: PRINT: NEXT 
FORI#1TOS@ 

Q@ (54100-53432 ) #RND (X ) #53432 

IFPEEK (Q)<S32THENLS19 
POKES4117, 32: POKEQ, 46: NEXT 

FORG=1LTO9 

FORX=4TOS2STEP4 

weyerpnn 

L=L—(X+ 

FORT=9T012: POKEL+I, 128: NEXT 

POKEL-128, 240: POKEL-125, 240 

SORELOLG, ae POKEL-94, 240 


POKEL<-32, 226 
FORI=1TOS: POKEL+I, 42: NEXT: FORI#2T08: POKEL+I+32, 42: NEXT 
powcr 


=X/4 
POKEY (X)+R, Z(X): POKEY (X)4+V(X94+R, W(X) 
POKEY (X)+6+R, Z(X): POKEY (X)#V(X)+64R, WX) 
FORI#1TO1LO1: NEXT 
POKEY (X)+R, 32: POKEY (X)4#V(X) +R, G2: POKEY (X)4+V(X)+64R, 32 
POKEY (X)+6+R, 32 
X=XH4G 
POKEL-34, 32 
POKEL~128, 32: POKEL-125, 32: POKEL-95, 32: POKEL-94, 32 
POKEL-63, 32: POKEL-33, 32: POKEL-32, 32 
FORT=LTOS: POKEL+I, 32: POKEL+I+32, 32: NEXT 
IF G29ANDX=24THEN4600 


NEXTX, G 
FORI=1LT09: POKEL+I, 128: NEXT 
GOSUB91 


DATA 189, 143, 143, 199, 31, 32, 33, 33 
DATA Sogvel, 53921, 53922, 53923 


1990 
DATA 64, 128. Ar ta ge la cl a a Se 
DATA S32. 64, 64, 64, & 
DATA Q; ~O1, -39d, i, $3, 3a) 2: 3, 64, 65, 34, 64, 98, 63; 95, OL, 128. 160 
DATA 96, 130, 162, 226; 194, 127, 158, 1990, 222 
DATA 189, 189, 199, 143, 153, 155, 135, 226, 168, 41, 136, 136, 136, 189, 133 
DATA 143, 161, 175, 205, 200, 139, 139, 139, 196, 201, 140, 140 
DATA 6&7, 58, 59, 79, 104, 71, 136, 168, 200, 231, 230 
DATA 100, 101, 131, 133, 134, 163, 164, 166, 196, 198, 228 
DATA ida Bec ae FE tN aro ade i ils he 


1 DATA S. & 0, 9, 10, 181, 182, 17, 248, 14, 1 


10000 FORT=1T0S@00: NEXT 
1Q0Q0@1 CLEAR: GOTOL 


RAINDROPS AND WILLY THE WIGGLE ---- 


This program will run on all graphics machines 
of raindrops 


It is a 
techniques. 


shower 


1 REM RAINOROPS & WILLY THE WIGGLE ------3/'221/73 


10 FORTSLTO27 : PRINT :NEXTI 


2aeAss*QHIO SCIENTIFIC 

36 &¢s" ry) 

49 CSe°P ROUDLY Ce eee BO See a 5 
36 Bs340e5 2 = 75 


66 FORTSLTOLENCAS) 
78 POKEB+I, ASC(MIDSCAS, I, 41>) 
2 NEXTI 

90 B=54278 53797 

100 FORI@1TOLEN(BS) 


420 NEXTI 

425 FORI=1704000:NEXT! 

430 B=S4996- 54932 

149 FORI@LTOLEN(CS) 

45Q POKEB+1, ASCCMIDS(C$) 1,19) (7 

460 NEXTI 

470 FORI=1T0100@:NEXTI 

48@ AS="RAINDROPS “ 

199 FORI=2TOLENCAS)STEP2 

208 FORJ=LTOSSSTERS 3 

210 PRINTTAB< J); MIDS(AS, I=L 4) 

245 FORL=17015@:NEXTL 

220 NEXTJ 

(38 FoRJapfrossTeP-3 2 

250 FORL*1T0149:NEXTL 

268 NEXTJ 

278 NEXTI 

288 FORI=1T010; PRINT :NEXTI 

290 PRINTTAG(26);"R A IN DROP S* 

300 FORI=1TOL4 : PRINT :NEXTI 

480 C=500 

440 FORI=1TOC : 

420 J abacs: KaPeeRNDCL) 

438 POKES3440+64eINTCJ+K, ASC("*") 
S3453425 


| 


ED Fe 


the Ci1P. 
graphic 


except 


and a wiggly worm using 


COMPUTERS" 


449 NEXTI gx - 0 47 
450 FORI=53440T0SS200 : POKEL, 32: NEXTI 
S0@ AS=" WILLY THE WIGGLE °:5253440-- 
$10 FORISLTOLENCAS) 
S20 POKEB+]. ASC(MIDSCAS, I. 19) 
330 NEXTI aE, 
348 Bab+1: IF STHENSLO 
se0 FO [029 : PRINT : NEXTT 
368 :Ce5G00 619853440 :L (29293448 
370 pidgin ooh ai pk L¢(5)253440 
588 128 
598 ABINTCRNDC1)#9)+1 
602 ONAGOLNS18, 628, 630, 640, 650, 668, 673, 680 
' IFACSS440THENSSO 
615 B=A: POKEB, 79: POKEL(S), 32:L¢599L.(4) :L¢4)8L(3) 
618 L¢3)8L (2) :L(299L¢1) :L61)88: Lal +1: IFIDSOOTHENT OO 


6 GOT oS ee 3 
R=8-64 ; IFA<CSS440THENS SO 
ponte soy: 5 
638 A=B~6- | TFACSS440THENSSO 
625 GOTO6LS 
649 GOTO6S¢ 
645 GOTC61S =. 
658 A=8+1: IFADSS462ZTHENSSO 
655 GOTOG{S ss |? 
}) AZB+Ex: IFADSSL67 THENSSO 
5S GOT0615 
38 GOT0615 


708 FORI #17015: PRINT : NEXTI 
7OS PRINTTABC130; "I SN’ T 
46 FORI217015 : PRINT : NEXTI 
1688 FORI#179310009 : NEXTI :GOTO1¢ 


HE 


=f oo S363 THEY LUGO 


| ks f o f ee ee aaatcoee 
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FUNCTION GRAPHER ---- 

This program will run on all machines that have a polled keyboard 
and graphics except the C1P. It will graph any function entered into 
the program. NOTE: X and Y limits determines what the function will 
look like on the screen. 


1 REM scm BY PRUL A. JOVIAK AND ROGERT L. COPPEDGE sexx 
2 REM #9 FUNCTION GRAPHER +0 

3 FORX#1T015: PRINT : NEXT: PRINT“ INSTRUCTIONS: “: PRINT 

4 GOSUB 1680:G0SUB 300 

S PRINT“AFTER “OK’ TYPE “S@ COEF FNOCX>=” AND THEN" 

10 PRINT"THE FUNCTION IN “X’% FOLLOWING THE EQUAL SIGN. “ 
15 PRINT“NOW PUSH RETURN AND TYPE “RUN 5Q° FOLLOWED" 

20 PRINT”“BY PUSHING RETURN. EXAMPLE: ° 

2S PRINT: PRINT"S@ DEF FNDCXD@SINCX)" : PRINT 

27 RSs" “: Tad 

38 INPUT"DO YOU WISH AN EXAMPLE RUN"; AS 

35 IFLEFTSCAS, 193"°Y" THENS2 

46 STOP 

42 PRINT 

43 PRINT“USE .1 FOR SCALES FOR THE X AXIS AND Y AXIS 
3@ DEF FNOCX)aSINCX) 

SQ INPUT"SCALE FOR X-AXIS": W 

8S INPUT“SCALE FOR Y-AXIS"; Z 

96 AalWeZs : B=-f 

97 FORI#1TO3@: PRINT : NEXTI 

10@ FORI #539532 TOSSLS2STEPG64 : POKET, 49: NEXTI 

165 FORI=34336T054399 : POKEI, 45 : NEXTI : POKES4364, 43 

120 X=(A-B)*RNOCP)+8 

123 KEY257088 : POKESS@, 1:POKE KEY, 128 

124 IFPEEKCKEY)=12GORPEEK(KEY>264THENLGS 

138 YaFNDCK)> 

148 YINT(C¥/Z9+. 5): XBINTCX/WD 

135@ P23543644X-1%64 

153 IFP>S51670RP<S3449THENLZO 

468 POKEP, 46 

1463 POKE KE'’,2 

165 F=PEEKCKEY> 

17@ IFF=16THENS@O 

173 POKE KEY, 128: F=PEEKCKEY) 

175 IFFs128THENS? 

180 IFF264THENS 

185 IFLEFTSC(AS, 19="Y"THENT=T 41 

190 IFLEFTSCAS, 192"Y"RNOT2300THENL 

<09 GOT0120 

360 REM se INSTRUCTIONS 

385 PRINT: PRINT 

316 PRINT“WHEN GRAPH IS ON SCREEN :* 

320 PRINT” PRESS °1° FOR GRAPHING SAME FUNCTION” 

338 PRINT" PRESS °2’ FOR GRAPHING A NEW FUNCTION” 
348 PRINT” PRESS “ “ FOR ENDING PROGRAM" 

3435 PRINT: PRINT 

336 RETURN 

3060 GOTO 15¢¢e 

1668 PRINT“DEFINE THE X AND Y SCALES BY TYPING THE VALUE PER SPACE" 
1001 PRINT“OF X AND Y. THERE ARE 30 SPACES EITHER SIDE OF THE" 
1002 PRINT“Y-AXIS AND 12 SPACES ABOVE AND BELOW THE X-AXIS. “ 
1003 PRINT“IF THE SCALES FOR X & 'f 00 NOT COMPLY THE GRAPH MAY" 
1064 PRINT“NOT APPIER-ON THE SCREEN. IF THIS HAPPENS, PRESS “1° 
1085 PRINT“AND ENTER NEW SCALES. “ 

1810 RETURN 

1568 END 


BOUNCER 


“pO, CM 0 Ro pb 


Ags Cxe 


14 
15 
26 
ee 
3 
35 
4 
42 
45 
4? 
$8 
60 
65 
36 


30 


This program will run on all graphics machines except the C1P. It 
simulates a ball bouncing around the screen at various speeds. 


REM--- BOUNCER 

REN---8. BENNETT 
PRINT“SPEED- FROM 1 TO 200" 
INPUT HL 

SINT 26ers at » 

PRINT" INPUT RAKOCM SEED 4" 
INPUT K 

BSL TC P#RND C465 2 


Lass3282 


FOR J=5l20@ TO SS4e8:FOKE J. Sa: NEAT 
C252446 

92253437 

FOR Wags TO SSZag STEP 64:POKE ©. °S 
iF COST16S8 THEN 176 

Lisli+ed 

POKE C-#, Se 

Fsq:IF AS64 THEN Fat 

Pai2e: IF CoW THEN P=ab 

IF C<L2 AND R<64 THEN 168 

FOr Sai TO H :NEXT 5 

TP Fat AND C>(S2440+64"P) THEN F264-A85(A-64) 
TF Fag AND C>(S2440+844P) THEN Ra64+nSS(A-64) 
Cat+A: NEXT W 


GCTI 4173 


ha 


RANDOM SQUARE ---- 
This is a short graphics demonstration program. 


compatable with all graphics 
program is also listed in the section "Special Hardware", 


machines 


conversions. 


REM #*# RANDOM SQUARE as 
POKES6832,6:PRINT: PRINT: PRINT: PRINT 


12 
iS 


PRINT” 


OHTO SCIENTIFIC: “ 


FORI=1T024: PRINT: NEXT 

0=4096: BC 1)=1: BC 2)=-64: BC 3)=-1:Bl4)=64 
FORPS=#1T0S 

FORL=1T02:H=S8318 


FORI@=1LTOLISTEP2 

H#*H+63: FORK=#1T04: Z#H 
IFK#@2THENZ=H+I 
IFK=3THENZ=H+I+18-64 
TFK2=4THENZ#H+1%-64 
FORJ=Q0TOI-1 

TS=INTC LE#RNDCZ)) 

RS=INT(C 2554RNDC( TS ) 2 
POKEZ+J*#BCK),TS 
F=e=PEEK(S7G88): IFF< >1LTHENSOG 
iFL=2THENPGKEZ+IJ#B( K)-D, 32: GOTOSaG 
POKEZ+J#B(KI-D,RS 
NEXTJI,K,1I,L 

NEXTPS 


498 
178 
uy 
295 
267 
210 
14 
e12 
214 
215 


Eo 


re “J “at 


fa 
Ciks 
cA 


ts & 
at a, 


the 


Ps: Pet: GOTU6S 

POKE C-A, 52: Gs8547S : MaSl225 
SSINTCA44RNO C457 
Fs:IF A>64 TREN Fat 

IF C<52448 THEN 23o 
FOKE ©, 7S:FPOKE CC+A2. 2 
Misc 

IF CoM SNO F=0, THEM Sa0 
TF G<G ANO Feat THEN [eu 
C=0-# 

FOR R139 TO H:NEXT RO 


a M=M-64 : G=5-64 


GOTO 205 
12522418: 92=53432 


, POKE NL Se 


IF A<64 THEN Sou 

IF ADS4+ THEN A=64-C(A-64) 
GOT? 36 
Rz64¢C(64-) GOTO 
R=§4-(R-64) : GOTO 
Azs+S«eC64-A> GOTO 230 


A 
Coal, 
_ 


= 
3 
Se 
~ 


The program: is 
CiP. Note, this 
with color 


1§ 


manciterans cr ure OO. ~calgiati 
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OCC ufcd 2325 byes 


OTHELLO ---- 


This program will run on all machines except the 
follows conventional rules for OTHELLO. This is a 


C1P. The 
player 


game 


two game. 


Enter column, comma, row (example: 3,5) for your moves. 


1 REM #«RUBERT L. 

2 REM sexCOPPEDGE 

4 FOR R21 TO So: PRINT: NEXT 
16 FOR W=1 TO &:FOR ¥=1 TO S$ 
14 NOV, WOS4S NEXT YONERT Wd 


42 C4, 49279 NCS, 53879 :NC4, 59266 NCS, $9366:G0TO 115 


116 PRINT“PLAYER “SA:PRINT"TYPE YOUR MOVE" :INFUT 4% 


444 IF XOS OF RCL OR YOS OR Y<4 THEN 116 

a2 IF NCA. Y<o45 TREN 1500 

113 H=:GOSUB. 680 

145 FOR Wet TO 8 

416 FOR ¥21 10 7” 
RINFFRECSS7CHRSTNCYS BD D5 " 


448 NEXT ¥ ; 
120 PRINTEHRSENCGrH>) jRRENT PRINT CHYNA, 1, 
4 ie pene I! 


6 ReA+L: IF A=Z THEN R=1 

GOTO 116 

GOTO 186% 

NCX% Y266:1F Atl THEN NCX, Yo279 
661 B=NCX, YD 

2 Wei 

C=66:IF Ase THEN C279 

IF X2#1 OR si THEN 7G6@ 

IF NCX<tL ‘f-W9=s8 THEN 636 

IF N¢K-W, Y-W9245 OR X-Wal OR ‘-W=Ll THEN 7@@ 
515 W=W+1:GOTO 685 

FOR ¥Y=i TO W 

Bod NCXMY, YeYI=E 

IF WCS>41 THEN H21:NEXT ¥ 

7OO Wet 

IF ‘‘=1 THEN SOG 

IF NCX Y-hDd=B THEN 7S 

IF NCX, Y-W9=45 OR Y-Wel THEN Sue@ 
| Wal+1:GOTO 7GS 

B FOR Yai TO W 

NOR YoVo=EB:IF Wot THEN Het 

NEXT ¥ 

Word, 

IF 428 OR Y=i THEN 39@9 

IF N¢X+hk, W228 THEN SSG 

IF NCK+W, Y-Wd=45 OR Y-Wed OR Ktbeg THEN 380 
WeW+1:GOTO 861 

$50 FOR Vai TO W 

S541 NCX+¥, YeYOS6:IF WoL THEN H=1 

Sa NEXT ¥ 


S25 


“Ren7T : “CHR $ (vy, wl) 


SE COL 
UV i. A Cd 


rd 


oy 


FX 


Wd: Sat:IF xati THEN 1000 

IF N¢X-W Y9a8 THEN 358 

IF NCX-W, 9245 OR X-Wel THEN 1000 
962 IF X-Ws3 THEN 1100 

985 WeW+S:GOTO 962 

3956 FOR ¥aS TO W STEP 5S 

351 NCX-4¥, 7906: TF Whos THEN H21 

952 NEXT ¥ 

41000 IF Se-1 THEN 1160 

4961 Sa-1:We-1:IF X23 THEN 1109 


380 
301 
Sz 


‘4002 GOTO 964 
4005 Wat: IF X= THEN 1100 


1406 wWat:IF xsi OR Y#3 THEN 1200 

1404 IF NCX-wW, Y4W>38 THEN 1159 

4402 IF NCX-W, YewoadS OR Xi OR Yad THEN 1200 
1185 Wall+1: GOTO ea 

1156 FOR Yai TO x 

1454 N¢CX<¥, Y4¥0e8: IF WOd THEN Het 

1452 NEST ¥ 

41200) Wat. IF isc THEN 1500 


1202 IF NCX, Y+N298 THEN 1250 

4202 IF NCX, YeW245 OR Y+We8 THEN 1380 
4205 Wate: GOTO 1291 

4256 FOR Vat TO WiIF Wt THEN Ket 
4254. CX Y4¥98:NEXT V 

4300 Wet: IF Y=3 OR X@3 THEN 1409 

4301 IF NCX+L Y+n>28 THEN 135a 
4302 IF NCXHW Y+=45 OR X 
4305 Wall+4: GOTO 1201 

4350 FOR Var TO W:IF WO THEN Het 

4354 NCX+¥, Y+¥)98:NEXT ¥ 

4400 IF H=@ THEN 155@ 

4405 NaN+1:IF Nws4 THEN 1660 

4440 FOR Xai TO 24:PRINT:NEXT X: RETURN 

15G0 PRINT“PLACE ALLREADY OCCUPIED":GOTO 110 
4550 PRINT"MOVE NOT ALLOWED” :NCX, ¥)945:G0TO 119 
4608 FOR Jai TO 3:FOR Wat TO 3 

4685 IF NCJ.W279 THEN Isf+1 

4610 NEXT W:NEXT J:PRINT"O’S SCORE 15: "i 1 

4628 PRINT"8’S SCORE: “; 64-1 

4788 ENO 


GR ‘i'tWas THEN 1400 


CHESSBOARD ---- 


This program will run on all machines except the CiP. This 
program does not actually play chess or do any error checking, it 
Simply displays the chess board and pieces. The players simply input 
their moves and the program updates the board. Typing KC or QC would 
indicate a king side or queen side castle. Typing BOARD will display 
the board. You move pieces by typing locations (example: D2-D4). You 
can change a pawn to a queen by typing the change after the move 
command (example: E2-E1Q). 


1 REMerDANIEL GLASSER 

2 REMeeeCHESS BORRD 

48 DIM 81°38, 3). B2cS, 3), P$¢16) 

26 FOR X=1 TO 2: FOR Y=i TO 8: READ S 

42 BL(% YeS: BACX+2, YeS: BLCX+4, YES: BLCX+6, Y=S 

SQ NEXT Y: NEXT X:FOR X21 TO 2:FOR Y=1 TO S:READ S:82¢X, Y)=5 

99 NEXT Y:NEXTX:FORX=7T08:FOR Y21 TO 3:READ S:B2¢% Y3S:NEXT Y 
 heacte NEXTX : FORK=1 7016 : READSS : P$(X)=55 : NEXTX : GOTOS8@ 

443 IF Wei THEN 168 

444 INPUT"“WO"; MS:GOTO 170 

160 INPUT"8>"; MS 

470 IF M$=“END“THENZOO9 

477 IF M$="KC“ THEN 250 

478 IF M$=“QC" THEN 300 

179 IF M$="BORRD” THEN 799 

480 AS=LEFTS(MS, 4): BS=MIDSCMS, 2, 1) :ALSHMIDSCMS, 4, 1) :BASAMIDSCMS, 5S. 1) 

1498 B=VAL(BS> :C#VALCB1S) : IFWei THENZLO 

208 Wei: GOTO228 

210 Wad: W2S(KI=MNF 

228 PLsASC(AS)-64 : P22ASCC ALS) ~-64 

238 U=82¢8, P1> :B2¢B, P1290: B2¢C, P2>=U 

225 IF RIGHTS(MS, 1)="Q" THEN 388 

248 GOTO 799 

250 IF Wei THEN 288 

260 Wet 

265 82(4 1)20:B82(L 4920 :B2(L, 2987 :82¢(1, 3924: GOTO7S9 

280 W20:B82(S 1)28:82(8, 4320:82¢8, 29214: B2¢8, 39211: GOTO7S9 

300 IFWeLTHENSS@ 

319 Wat 

320 B2(L 8)20: 82641, 4920: 82¢(L, 6927 :B2(1, 5924: GOTO”99 

320 W=0:82(8, 8)20:82¢8, 4)20:B82¢3, 69214: B82¢8, 59=211:GO0TO 799 

799 FOR MS=1 TO 4:PRINT:NEXT MS 

800 PRINT *-R-——-B a 0 EF 

$841 PRINT 

810 FOR X=1 TO 8: FOR Y=1 TO 8 

820 S$1=B82Cx, Y) 

820 IF Si=@ THEN S1=81¢x, Y) 

849 S$=P$(S1>:PRINTSS;" °5 

8590 NEXTY:PRINT®  °s X:PRINT:PRINT:NEXT X 

S54 PRINT" -A———- BC EF Gt" 

355 GOTO 1498 

900 IF C=8 THEN 82<¢C, P2>28:GOTO 799 

910 IF Cat THEN B2cC, P2)=15 

912 GOTO 799 

4990 DATA LA2LYILALA2Z2L2L2A121 

49149 DATA 4.5.6.7,3.9:5.43,3,3,3.3,3,3.3 

4020 DATA 10, 10, 10, 10, 10, 18, 10 10, 14, 12, 13, 14, 15, 16, 12 14 

4028 DATA * *%" #4" " WP". WR", " WN," WB"." WK," WO," WE" 

4049 DATA * BP*," BR*,” BN". * 8B%." 8K". " BQ" " BB" 

2008 ENO 


OK 
17 


18 


Word Processor --- 


ne pRoeren is a simple word processer for BASIC-in-ROM 
computers. e program allows’ tape storage of text, but reaui 
1OK+ RAM to process full pages of text. aa 


REM--D. TEWKSBARY; WORD PROCESSOR 

DIMLS$( 32),C$013): 1P#1:LP=1:CS$(0)="1T" 

C$( 1 )=" IL* 3 CSC Z)=" OL” : CSC 9)=" 1C* 3 CSC 4)=" DC” 

C$(5)=°V" :CS$( 6 I=" A* CHL 7 =" G* CSC 8)="PT” 

C$C9)="PD" : CEC IB I=" Cs CHC LL IMF CSC LZ I="S* CSC 133 =" RR" 
PRINT : INPUT ° COMMAND® ; AS: FORT #67013: IFCS( LI=ASGOTOSS 

IF IP#33THENIP=1 

NEAT I : GOSUB1 400: GOT04G 

ONI+1G0T017G, 168, 280, 340, 404,500,682, 760, 540, 900, 1000, 1104, 1280 
INPUT°OLD STRING* 3 AS: INPUT“NEW STRING” ; BS: PRINT 
PRINT°REPLACE °;AS;° WITH °*; BS:PRINT: INPUT “CORRECT” 37S 
IFLEFTS(YS$, 1)=°N°GOTOSS 

LA@LENC AS): FORT =1T03Z: FORIZ=LTOLEN(LS$(1)) 
IFMIDS(LS(1),12,LA)“ASGOTOSG 

NEXTIZ, 1: GOTO40 

TF IZ"1 THENLS( I =BS+M1DS(LS$(1),12+LA):GOTOB1 

LSC II*LEFTS( LSC I), 12-1)+BS+MIDS( LSC 1), I2+LA): GOTOS81 
PRINT*(C°IP* 3°3 s INPUTAS: IF AS=" 38° GCOTO43 


iG@S IFIPSS2ZTHENPRINT “FILE OVERFLOW” : GOTO46 


116 


C=0:FORI=-1TOLEN(C AS 3: IFMIDSCAS,1, 1)=°/*GOTO158 


L115 LSC IP =LSC IP I+MIDSCAS, 1,1) 

128 NEAXTI: 1P#1P+1:GOTO18a 

15@ ITFLENCLS$( 32) 9< DOTHENPRINT “FILE OVERFLOW”: GOTO4G 
151 IF IPSOSLTHENPRINT “FILE OVERFLOW”: PRINT: GOTO4@ 


155 


FORIZ=31LTOIPSTEP-1:LS( 12+1 J=L $012): NEXT 


166 IP=1P+1L:LS( IP j=" *:GOTOL2S 
170 POKES15, 254: PRINT°START TAPE”: PRINT: INPUTAS 


17S 


PRINT°’(*IP* )°3 : INPUTAS: LIF AS=" 3° THENPOKES15, 8: GOTO048 


L176 IF IPOSZTHENPRINT*FILE OVERFLOW” : POKES1S, 8: GOTO4G 


18a 


LS( IP AS: IP#IP+1:GOTO1L7S 


288 PRINT: INPUT*DID YOU WANT TO REMOVE A SERIES’: YS 


2i8 
22 
230 
231 


TFLEFTS( YS, 13=°N* THENGOTO2ZS0 
INPUT°LOWEST LINE NUMBER”’;A 
INPUT* HIGHEST LINE NUMBER";B 
IFA>BGOTO2Z26 


235 IFAC LORASSLOREX LORBOSLTHENPRINT "OUT OF RANGE*: GOTO4@ 


240 


FORI=ATOB:LS{ I J” ° NEXT 


24S FORI=B+1T032:LS$( A+1-B-1 D=LS$( 1): NEXT 

246 FORT #32-BtATOS2: LSC 1 =" * SNEXT : GOTO4B 

250 INPUT*WHICH ONE THEN”’;A 

266 IFA< LORADSSZTHENPRINT “OUT OF RANGE”: GOTOZ2SB 


cre 
286 
238 
360 
385 
315 


LSC AJs°" SPRINT: INPUT°IS THAT ALL"; YS 

IFLEF TSC YS, 13° Y° GOTO4G 

GOTOZSG 

PRINT: INPUT*WHAT STRING WOULD YOU LIKE TO INSERT HERE*;AS 
BSC Ly="*s BSC Se Cm 

FORI=1LTOLENC AS): LFMIDSCAS, 1, 13="/* THENGOSUB3S5G: NEXT I: GOTOS17 


316 BS(C)=BS(CItMIDSC AS, 1,13: NEATI 


31? 


TF C+1P S31 THENPRINT ° OVERFLOW?” : GOTO4G 


318 IFC#@=ZTHENLS( IP+1)=BS( 29+" “+L SCIP +1) 


32G 
336 
3358 
346 


IFLP=LTHENLS( IP )=BS( 1 +LSC IP): GOTOSSS 

LSCIP =LEFTS(LSCIP),LP-1)+ES( 1 O+MIDS( LSC IP).LP) 
LP=LP+LEN( BS(1)): IFC@ZTHENLP#=LEN( BS( 2) +1: 1P=IP+1 
GOTO4G 


352 CaC+lLs IFCZTHENPRINT°ONLY ONE 7“ ALLOWED”: GOTO4@ 


355 


360 


LSCIP+1LI=AMIDS(LSC1P),LPI+" “+L SC IP+1) 
TIFLP+1< STHENLS( IP )=" * s RETURN 


373 
406 
420 
436 
446 
588 
680 
619 
620 
636 
788 
701 
718 
726 

33 
749 
756 
8G0 
816 
815 
815 
820 
821 
82S 
838 
386 
381 
302 
365 
318 
315 
316 
328 
325 


LSC IP J@LEFTS(LSCIP),LP-19: RETURN 

INPUT°HOW MANY CHARACTERS DO YOU WANT TO DELETE*:C: iFC=GG0T046 
IFLP#1THENLS( IP )=M1DS(LS( IP), C+1):GOTO4G 

LSC IPIM@LEFTS( LSC IP), LP-LI+MIDS( LSC IP),LP+C) 

GOTO04G 

PRINT: PRINT*( °1IP* )°LSC IP): GOTO4G 

PRINT: INPUT “ADVANCE HOW MANY";A 

IF IP+A>3Z2ORIP+AX LTHENPRINT*OUT OF RANGE” : GOTO4G 

IP#1IP+A:LP=1 

PRINT: PRINT°CURRENTLY AT °; 1P:GOTO4G 

PRINT: INPUT°WHAT STRING ARE YOU LOOKING FOR” ;AS 

INPUT°ON WHICH OCCURANCE ®;C: LFC=6GOTO761 

J=@:LA=LEN(C AS): FORI=IPTO3S2:FORI2Z=i1TOLEN(LS( 1) ) 
IFMIDS(LS( 1), 12,LA)*=ASGOTO7T4B 

NEXTIZ, 1: PRINT: PRINT *NOT FOUND® : GOTO4G 

J=J+1: IF J<CGOTO73G 

IP=1:LP=#12:GOTO638 

PRINT: INPUT* THE PRINT SHOULD START WITH WHICH LINE*;L1 
INPUT°WHERE SHOULD THE PRINT STOP*;L2 

TIFL1< LORLZ< LORL2 >3ZORL1 >32G0T 0888 

INPUT*DID YOU WANT LINE NUMBERS”; YS: IFLEFTS( YS, 1)="Y¥"°GOTO83G 
PRINT : POKES17, 1: PRINT°FOR PLAYBACK VIA THE IT MODE, BEGIN THE’; 
PRINT® TAPE AFTER THIS LINE BEGINS!!°* 

FORT#LITOLZ: PRINTLS( I): NEXT : PRINT ° ##° : POKES17, @: GOTO04G 
FORT@LITOL2Z:PRINT°C ° 1° 3° 5LSC 19: NEXT: GOTOSO 

INPUT° THE PRINT SHOULD START WITH WHICH LINE*;Li 

INPUT* WHERE SHOULD THE PRINT STOP*;iL2 

TFL1< LORL2< LORL1>3SZORLZ>32THENPRINT “OUT OF RANGE” : GOTO4G 
INPUT*°ON WHAT LINE WOULD YOU LIKE YOUR DATA TO START*;A 
INPUT*°AND WHAT INCREMENT °;B:POKES17, 1: PRINT 

PRINT*FOR PLAYBACK VIA THE IT MODE, BEGIN THE TAPE AFTER THIS®; 
PRINT” LINE BEGINS! !” 

FORT#L1TOLZ: PRINTA® DATA® CHRS( 34 );LS$( 193 CHRS( 34): A=A+TB: NEXT 
PRINT °##° : POKES17, 6: GOTO48 


1066 FORI=1T031: IFLEN(LS( 1) 3< DGGOTO1624 

1918 FORIZ=1+1T03Z:L$( 12-1 )=LS$C 12): NEXTIZ:L$(32)="°" 

1828 NEXTI:GOTO4G 

1168 PRINT: INPUT°WHICH LINE DID “OU WANT TO BE ON*;AS 

1116 A=VALCLAS ): IFA=GGOT04G 

1120 IP=A:GOTO63E 

1260 PRINT: INPUT°ENTIRE TEXT*; YS: IFLEFTS( YS, 13="Y°GOTO1258 

1218 INPUT*WHICH LINE*;C: IFC<X LORCOSLTHENPRINT “OUT OF RANGE” : GOTO4G 


1230 LSC CIM@LSCCI+” “4+LS(0C+1)° LSC C+1)="° 

1240 INPUT ° COMPRESS” 5; ‘°S: IFLEFTS( YS, 1 =" Y"GOTO1400 

1245 GOT04G 

1ZS@ FORI=1LTOSLISTEPZ: LSC TI=LSCTI+" “4LS0 14192: LS014+1 9="° : NEXT: GOTO1Z46 
1406 PRINT*LIST OF COMMANDS IL> INSERT LINE” 

1416 PRINT* DL> DELETE LINE IC> INSERT CHARACTER 
1420 PRINT* DC> DELETE CHARACTER G> GO FOR STRING” 
1436 PRINT® V> VERIFY LINE F> FIND LINE* 

1446 PRINT* A> ADVANCE C> COMPRESS” 

1456 PRINT” S> STACK LINE R> REPLACE STRING" 
1468 PRINT” FPT> PRINT AS TEXT PD> PRINT AS DATA” 


147@ RETURN 


19 
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Trax --- 

This program will run on all OSI computers with 540 video 
boards. This is a two player game where the one who lasts the 
longest wins! 


S FOR LF=1 TO 32:PRINT:NEXT 

1@ INPUT “DO YOU WANT INSTRUCTIONS (Y/N)*;1ANSS 

1Z IF LANSS="N* THEN Sz 

22 PRINT* THE OBJECT OF THIS GAME IS NOT TO RUN INTO ANYTHING. * 
22 PRINT" INCLUDING THE BOUNDARY, THE ENEMIES TRACK,OR YOUR OWN" 
24 PRINT* TRACK. ¢ DO NOT GO BACK ON YOURSELF! )° 

Z6 PRINT’ PLAYER 1 STARTS IN THE TOP LEFT HAND CORNER ; ° 

28 PRINT" PLAYER 2 STARTS IN THE BOTTOM RIGHT HAND CORNER. * 

3@ PRINT THE MOVEMENT KEYS ARE AS FOLLOWS :°* 

32 PRINT 

34 PRINT* W oe 

36 PRINT* AS KL 

38 PRINT? Zz = 

46 PRINT 

42 PRINT* PLAYER 1 PLAYER 2° 

44 PRINT 

46 PRINT* THEY MOVE EACH PLAYER NORTH SOUTH EAST WEST AS APPROPRIATE” 
48 PRINT* MAY BOTH OF YOU HAVE EQUAL LUCK!* 

SQ INPUT * ARE YOU READY"; IANSS 

S2 Dl-1:D2=-1 


S3 P1=53509:P2=55032 71% INPUT “PLAY AGAIN*; LANSS 
S4 POKE 538,1 720 IF IANSS="Y" THEN Sz 

SS FOR LC#l TO 32:PRINT:NEXT LC 36 STOP 

S8 KB=5798S 99393 REM KBOARD POLLER 

62 DP=$30s64 1@@G POKE KB.2 

Be ce | i131@ Q=PEEK(KB) 

S4 REM SET UP BOARD i@20 IF Q=64 THEN Di=-1 

Be th west 1930 IF Q=32 THEN D1=64 

68 FOR BD=S504G TO S529S:POKE BD,32:NEXT BD 1646 POKE KB,4 = 2 
74 FOR BD=TL TO TL+62 1650 IF PEEK(KBI#2 THEN U2=64 
72 POKE BD,BC:POKE BD+DP,BC:NEXT BD tails plored ae 

74 FOR BD=TL TO TL+DP STEP 64 1676 ie Ea ig 

76 POKE BD,BC:POKE BD+68,BC:NEXT BD ae ne 

10@ REM NOW PLAY LOOP 16S6 IF Q=Z THEN D2=-1 

118 GOSUB 1805 110@ IF @¢>130 THEN 1122 

1278 NP=Pi+DL 1110 Di=1:D2=-1 

130 IF PEEK(NP)<>32 THEN 50a 1126 POKE KB, 16 

140 POKE NP, 232:P1=NP 1136 IF PEEK(KB)=128 THEN UD1l=#-64 
15& GOSUB 10aa 114@ POKE KB,32 

169 NP=P2+D02 1158 Q=PEEK( KE) 

173 IF PEEK(NP)<>32 THEN 620 1160 TF G964 THEN D2@1 

18G POKE NP.233:PZ=NP 1170 IF @=32 TREN DZ=-64 

190 GOTO 116 1182 RETURN 


$26 FR=55827 

516 GOTO 6146 

660 FRpS35a3g 

616 FOR FL=1 TO 16 

620 POKE FP,73:POKE FP+1,32:PCKE FP+3,87:POKE FP+4, 73 
S625 POKE Fre, sec 

634 POKE FF+S, *°S 

646 FOR DM=:i TO 50 

656 NEXT UM 

660 POKE FP,32:POKE FP+1,32:POKE FRP+3S,32:POKE FP+4, <2 
670 POKE FP+5,32 

B66 FOR DM=1 TO SG 

696 NEXT DOM 

704 NEXT FL 


Star Wars --- 


This program is a game that will run on any graphics machine 
except the CIP. You are controlling a turret and an invader 1s 


after you. 


1 REM STAR WARS 

2 REM JERRY DURBAK 

19 FORI=1703@: PRINT: NEXTI 

28 POKE2073, 96: POKES6832, 

36 GOSUB20e08 

35 T=S7988 

49 2=55168 

45 We=55199 

SG P=55180 

SS XXe3Z: YY964:27Z2=128 

BB N44: N3=48: N2Z"48:N1=48 

FO M4948: M3=46:N2=48:M1=48 

8B EX9161:S2=0 

3@ U=1:Q=1 

97 POKET, 128 

1@@ REM MAIN BODY AND SAUCER DRIVER 
15@ DeINT( 24@RND¢ 1 +1) 

208 X=-53440+648D 

300 Y=53471+646D 

400 ON INT( Z*RND( 1 +1 GOTO45B, 1088 


458 


REM LEFT ENTRANCE 


475 1=X-1 


566 


T#1+1 


660 POKEI,4 

7896 IF 1-X=P-ZTHENGOSUBZ3GG 
806 GOSUBS8GO 

886 IFQ=ZTHENG=1:GOTO1S 
$88 POKEL,32 

356 IF 1>X+3ZTHENGOTO1S2 
378 GOTOSSG 


1980 
1625 
1856 
1168 
1200 
1306 
1358 
1480 
1589 
16a 
208a 
2180 
2208 
2368 
2375 
2468 
2480 
2566 
2606 
272G 
e333 
3096 
316 
322@ 
3208 
346G 
3506 


REM RIGHT ENTRANCE 

T#Y+1 

T#I-1 

POKEL, 4 

LF Y-1T=W-PTHENGOSUBZ330 

GOSUBS2ZUe 

IF Q=ZTHENQ=1 : GOTO158 

POKEI, 32 

IF 1<Y-3ZTHENGOTO15& 

GOTO1858 

REM SAUCER FIRING 

FORK=1T033-D 

POKEI+644K, 149 

TFK S2THENPOKET+644( K-23), 32 

IF Q=2THENGOTO29S99 

IF 1+648K=PTHENR=P : GCOSUBSOGG 

IF SWS=" 2* THENGOSUBS8O8 

NEXTK 

POKEI+648(K-1),32 

POKE1+648K , 32 

RETURN 

REM EXPLOSIONS 

EX2#161 

POKER+64, EX: POKER+64+1, EX: POKER+64+2,EX 
POKER+64-1,EX% 

POKER-3, EX: POKER-2Z, EX: POKER-1, EX: POKER, EX: POKER+1 , EX 
POKER -64-2, EX: POKER-64-1, EX: POKER-64, EX: POKER-64+1,EX 


21 


3958 


3630 


37BO 
4180 
4200 
4258 
4388 
4400 
4509 
43939 
See 
5186 
S288 
5388 
5480 
5586 
5680 
5708 
S8eo 
598e@ 
6300 
6180 
7086 
7188 
7158 
7208 
7388 
7486 
730G 
7689 
7658 
778G 
7886 
7389 
7358 
Seo 
=) k=) 
6186 
8158 
82088 


POKER-64+2, EX 
POKER-128-1,E%: POKER- 128, EX: POKER-128+1, EX: POKER-128+2,EX 
POKER- 192-3, EX: POKER- 192-1, EX: POKER-192, EX: POKER- 1952+2, EX 
POKER-256-2,EX% 

POKER -64+4,EX 

ITFU=ZTHENQ=2 

IFEX#32THENGOTO4580 

EX#32: GOTO03Z39 

GOSUB1G608G 

RETURN 

REM TURRET DRIVER 
POKEP, 176: POKEP+1, 1793 

C=PEEK(T ) 

IF C#YYANDP< W- 4THENGOTOS 73a 

IF C=ZZANDP >ZTHENGOT OSS@G 

TF C=XXTHENGOSUB7882 

GOT0610G 

P=P+1: IF PSZTHENPOKEP-1, 32: POKEP, 32 
GOTOESEGa 

P=P-1: IFP<W-4THENPOKEP+1 , 32: POKEP +2, 32 
POKEP , 176: POKEP+1, 178 

RETURN 

REM TURRET FIRING 

FORF =1T027 

TFU@ZTHENGOT 074308 

POKEP-644F , 1439 

POKE( P+1 3-648F , 149 

TIFF DZTHENPOKEP -648( F-2),32 

IFF D2THENPOKE( P+19-648(F-2),32 

IF P-644F =I THENR=1 : U=2: GOSUB36840 

IF (P+1 9-648F =I THENR=1 : U=Z2: GOSUB30GG 
NEXTF 

U=) 

POKEP-648(F -2),32 

POKE( P+1 9-648(F-2),32 
POKEP-644(F-1),32 

POKE( P+1 )-648(F-1),32 

POKEP-644F , 32 

POKE( P+1 9-644F , 32 

RETURN 


1668S 
10166 
16268 
16366 
19466 
185608 
1G60a 
18656 
10766 
18868 
10306 
11608 
26088 
20650 
20180 
2B200 
cG36G 
29486 


REM SCORING 

IF Q@@ZTHENNS=N3+1 

IF Q=#1L THENMS=M3+1 

ITF NS3=SSTHENN4=N4+1 : N3=46 

IFM3=SSETHENMN4=114+1: M3=48 

POKEZ-128,N4: POKEZ-127,N3: POKEZ-126,N2: POKEZ-125,N1 
POKEZ-101,M4: POKEZ-190, M3: POKEZ-39, M2: POKEZ-385, M1 
IFN4#SG0RM4=SETHENGOT 0306006 

F ORAB=1T0158G: NEXT 

POKEZ- 128, 32: POKEZ-127, 32: POKEZ-126, 32: POKEZ-125, 32 
POKEZ-181,32Z: POKEZ- 100, 32: POKEZ-S9,, 32: POKEZ-9S8, 32 
RETURN 

REM INTRODUCTION 

IF SZ#1 THENGOTO2Z1 149 

PRINT° STAR WARS” :FORI1=#=17T015: PRINT: NEXTI1L 

PRINT°BO YOU NEED": INPUT° INSTRUCTIONS (Y/N3°;AS 
IFLEF TSC AS, 1 3@°N° TRENGOTO2Z1100 
FORIZ=1T03G: PRINT : NEXT 


28500 
28680 
28780 
28888 
2858S 
21880 
210858 
21182 
21209 
21588 
<39393 
30808 
38858 
30180 
38158 
392606 
30308 
38488 
38566 
31088 
31188 
31288 
31386 
48260 
493993 


PRINT° YOU ARE EQUIPPED WITH*:PRINT* DOUBLE LASER FIRE ANE” 
PRINT °MOBILITY. °°: PRINT: PRINT°YOUR CONTROLS ARE:” 

PRINT“ 1> LEFT" :PRINT°2> RIGHT": PRINT"3> FIRE” 

PRINT: PRINT*°YOUR ENEMY HAS A*:PRINT"°SINGLE LASER EQUIPPED” 
PRINT°WITH COMPUTERIZED °: PRINT“TRACKING. * 

PRINT: PRINT: PRINT°USE THE FORCE!!°* 

PRINT: PRINT*YOUR SCORE IS ON THE*:PRINT“LEFT. PLAY IS TO 200G"° 
PRINT: PRINT *YOU CAN PLAY: °:PRINT°1L> HARD": PRINT*Z> EASY” 
PRINT : PRINT °“READY?7?7°": INPUT* CENTER A Li OR 2)°; SWS 
FORIS=1T03S0: PRINT: NEXT 

RETURN 

REM ENDING AND RERUN 

POKEP , 32: POKE( P+1),32 

FORTS=1T03G: PRINT : NEXT 

IFMN4=@SOTHENGOT 031966 

PRINT*GOOD SHOOTING!!! °: PRINT: PRINT: PRINT 

IF SWS="2°THENPRINT “TRY THE HARD VERSION. ° 

IF SWS=" 1° THENPRINT°* THE FORCE WAS WITH YOU'* 

GOT031286 

PRINT* THE IMPERIAL FORCES’: PRINT“WHERE TOO MUCH FOR” 

PRINT °“ YOU! !°: PRINT: PRINT: PRINT 

PRINT: PRINT: PRINT°WOULD YOU LIKE”: INPUT“ ANOTHER RUN CY/N)°;5AS 
IFLEF TSC AS, 1 3@°Y° THENCLEAR: S2=1 : GOSUBZG00G: GOTO35 
POKE2373, 173: POKESSS32, 1 

END 


Graphic V --- 


This program will run on all graphics machines except the C1P. 


The program is a graphic pattern generator. 


2 REM----GRAPHIC V 
3 REM--CHALLENGER 11 
S FOR1T=1T0308: PRINT : NEXT : POKESS 164, 32: POKESE&S3Z, a 


10 
2a 
21 


FORM=87T O7 : READICM): NEXT 

C#INTCRND( 15%100)+128 

TF INTCRND( 13987 9=1LTHENC=32 

IFCOLTBANDCK LSSORCOZLBANDCK ZISGOTGZS 

Pe INTC RNDC 1 341800 )+5353508 
IFP/64-INT(P/64)>.5G0TO39 

M#INTCRND( 13#6) 

P=P+1(M):POKEP,C 

TIF INTC P/3Z 3 =P /SZORP 755 1 O40RP< SSSSUGOTOZS 
IF INTC RNDC 1 94*#5 )< DLGOTOSD 

MN=INTCRND( 13469: LFICMND< 9- LOM ITHENM=MN: GOTOSS 


133 SOTOSS 
110 DATAG4, -64,65,-65,635,-635,1,-1 


23 


ESCAPE ---- 
This program will run on all graphics machines except’ the CIP. 
The program demonstrates randomness and, trial & error of a rat trying 


to escape from a self made maze. 


19 REM ESCAPE 4715/79 

2O@ K1l#i:K2="=2:kK6=64: KH=64: KVU=26: KO=@: TT=0:LL=S000 

38 G=1:F=1: DIMBBSC( KU, KH) 

40 KA=S3536 : KB=S4399: KC=$5136: KD=$4336 

SO HH$="-1° : GOSUBEOGO9 

7@ FORI=LTOPEEK( 8996 )+2: B=RNDC 1): NEXT 

80 GOSUBEOG2E : GCOSUB2Z0080 

160 AS="PRESENTING...°:BS="T HE Km AT eA Ee 
162 A=S3S4S: FORI@ATOA+LENC(C AS D-1: B=B+1 

i64 POKET,ASC(MIDSCAS,B,1)):NEXTI 

166 B=@:FORT=1TO10G@: NEXT 

168 A=$4298: FORT =ATOA+LEN( BS )-1: B=B+1 

i7@ POKET,ASCCMIDS( BS,B, 1)):NEXTI 

163 FORI=1LTOKV: FORJ=1TOKH: BBS( I, J *HHS: NEXTI: NEXTI 
130 GOTO28a 

238 GOSUBE8GGG: PRINT’ THIS RUN TOOK": T; “MOVES*:PRINT 
222 Q=KO: IFTOTTTHENTT=T 

224 TF T<LLTRENLL#=T 

226 PRINT*’ THIS WAS RUN NUMBER’;G: PRINT 

227 PRINT" THE HIGHEST SCORE IN THESE RUNS WAS*; TT: PRINT 
223 PRINT° THE LOWEST SCORE IN THESE RUNS WAS*;LL: PRINT 
229 GG=GG+T:AV#INT( GG/G ) 

c3@ PRINT" THE AVERAGE RUN TOOK’; AYU; “MOVES”: T=@: PRINT 
232 PRINT*C THE RAT GOT OUT’;E; “TIMES)°: PRINT 

246 GeG+l1: GGS=STRS$(G): FORT =1T039@0: NEXT 

239 GOSUBGE88G: GOSUBZ000G: CS="READY?” : DS=”" 

3890 A"S4290: BO: IFF=1THENF #G: GOTO4GG 

3382 FCRI#=ATOA+LEN( CS )-1: 528+1 

384 POKET,ASCCMIDS(CS$,B,1)):NEXTI: FORT=1TOLGQQ@: NEXT 
463 A=INTCRNDC KL ®KU): Ye INTCRNDC K1 )*KH ) 


418 N#53439+648X+yY 
41S IFN<S3S@4THENIOG@ 

470 B=0:FORI=ATOA+LEN( DS )-1: B=B+1 

489 PCKEI,ASC(MIDS(DS,B,1)):NEXTI 

19@@ D=INTCRNDC( 1441): ASINTCRNDC L)*1G+1):XL=x: YL=¥Y 
119@ ONDGOSUB2@Q@, 3200, 49028, 5080 

L110 IFQ< *KLTHENL1S® 

1120 X$="HE ESCAPED !* 

1122 A=S4356: B=O: FORI=ATOA+LEN( XS )- 1: B@B+1 

1124 POKEL,ASC(MIDS( XS, B, L) ): NEXTI:FORI=1T0108QQ: NEXT 
1126 E=€+K1:GOTO200 

115@ IFX1=xKANDY 1L=YTHENC=C+K1:GOTOL18@ 

1168 C=K@ 

118@ IFC>LSTHENGOSUBSaaaa 

12@@ GOTO1800 

2020 FORIJ=KLTOA: IFY+K1 >KHTHENRETURN 

2300 IFBBS( X, Y+K1 )=GGSTHENRETURN 

2400 Y=Y+K1:N=N+K1:POKEN, 18: GOSUB1LQ@80@ 

2458 GOSUB3@G00: IFQ=KLTHENRE TURN 

2508 NEXTJ:RETURN 

3008 FORJ=KLTOA/K2: IFX+K1 >KUTHENRETURN 

3300 IF BBS( X+K1, Y }=GESTHENRETURN 

_348@ X=X+K1:N=N+K6: POKEN, 20: GOSUB 10090 
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3459 
49209 
430d 
4400 
4453 
$8ae 
S398 
$408 
$450 


GOTO24S8 

FORJ*KLTOA: IFY-K1<KLTHENRETURN 

IF BBS( X, Y-K1 )=GGSTHENRETURN 
Y=eV¥-K1:N@=N-K1: POKEN, 22: GOSUB1O@Q0 
GOT02458 

FORJ*KLTOA’K2: IFX-KL<KILTHENRETURN 
IF BBS( X-K1, Y )=»GGSTHENRETURN 
X=X-K1:N*N-K6: POKEN, 16: GOSUB1LOG0G 
GOTO024SB- 


19000 
20002 
28010 
28250 
29100 
20220 
23360 
20490 
20S8a 

/30a00 
30019 
Seaae 
50100 
Saz0e 
Sa2ae 
50480 
sesae 
Sa600 
$0360 


T=T+K1i: BBSC(X, Y )=GGS$: RETURN 

L=INTCRNDC 1) #2SS5+1 ) 

IFL=32THEN2Z@689 

FORT =S3S04TO0S3S67 : POKEI,L: NEXT 

FORT =S3631TOSSIG7STEPG64: POKET.L: NEXT 
FORT=SS166TOSS1L@SSTEP-1: POKEI,L: NEXT 

FORT =S5104TOS3S68STEP -64: POKEI,L: NEXT 

POKES3S36, 32: POKES4399, 32: POKESS136, 32: POKES4336, 32 
RETURN 

IF N=KAORN=KBORN#=KCORN#KDTHENG=1 
RETURN 
FORD=K1T04: AS INTC RNDC K1 #1G+K1 ) 
ONDGOSUB20@@ , 3062 , 4908, S60 

IF Y1< DYORX1< >XTHENC=0: RETURN 
NEXTD:X$"#"A HA! . .. GOTCHA 
A=543S6: B20: FORI#ATOA+LENC XS )- 1: BeB+1 
POKET,ASC(MIDS( X$,B,1)):NEXTI: FORI=LTOLGGG: NEXT 
GOTO209 

FORT#1T032: PRINT: NEXT: RETURN 


BRE 


GAME 
CONV 


: 


P 
P 
Pp 


S wou una 


AKOUT ---- 
THIS PROGRAM WILL RUN ONLY ON MACHINES WITH ASCII Keveaoaros. THxrs 
CAN S8& CONVERTED TO A POLLED KEYBOARD SYSTEM. (SEE PROGRAM 
ERTIONS. ) 
ae oe nr nr nn SCELES = TEWKSBARY 
So em ot meine ee eas eee REAKOU 


NPUT "DO YOU NEED INSTRUCTIONS" YS: IFLEFTS(Y$%, 1)="N"GOTO1L8S 
PRINT“  HOKAY“: PRINT: PRINT“ THIS IS THE GAME BREAKOUT. “: PRINT 
RINT" THE IDEA IS TO WIPE OUT ENOUGH BARRIERS TO ALLOW" 
RINT“ THE BOUNCING BALL TO REACH THE TOP OF THE SCREEN. “ 
RINT“ YOUR PAOOLE IS ON THE BOTTOM OF THE SCREEN AND IS " 
PRINT“MOVED IN THE FOLLOWING MANNER: “: PRINT 

PRINTS 1) LEFT": PRINT" 2) RIGHT": PRINT 

PRINT“ IN ORDER TO SERVE A BALL. PRESS 4. SIX BALLS WILL" 
PRINT“BE THE LIMIT. POINTS CAN BE SCORED BY_ KNOCKING DOWN" 
PRINT’ THE BARRIERS. THE DEEPER ONES caer thee Ripe A a asda 3 
PRINT: PRINT'WHEN YOU ARE READY, TYPE ‘: INPUTY 
IFY$<>"R"“GOTOLS 

FORI#1TO3@: PRINT: NEXT: POKES683e, © 

PRINT" BALL # SCORE" 
FORI=S3534TOS4942STEPG4: POKEL, 47: NEXT: POKEL, 35 

FORT @S5S00STOS4977STEP—-1: POKEL, 95: NEXT: POKET, 335 

FORT #54912TOSSS04STEP— 64: Seria NEXT: POKEL, 35 
FORTI=53441T053449: POKEL, 42: NEXT: POKET, 35 
FORI=S53505TOS3533 | POKET, S1: NEXT 

FORT =53549T053597: POKEL, 50: NEXT 

a des hed be hate POKEL, 49: NEXT 


I LES 
M(1) 8-65: M(2) 2-64: M(3) #—-63: M( 4) 263: M (5) 864: M(6) 265 
BC=#79: BO=3e2: PC #61: T2#57343: P#S54925 
1 elit Sickdecaeaiabet at oF i age he fe POKESS@63, 48 
IF X#64GCOT01L0G90 
IFPEEK (T)<>i180GOTOSS 
X#2X+1: POKESSO4S, 4 


+X 
9 BP=INT (RND (BC) #25) +53827: GOSUBS0@: L=6 
REM ALL ’S MOTION 


FORA@LTOL: IFA<C21GOT0I230 
POKESP. BO: Q=PEEK (BP+M(IB) ): TFQ=BECOTO200 
IF Q2224C0TO0200 
L=L*, 87: TFQ=2200RQ#92THENIB@=IB+2: COTOLSO 
eee easaeeay 2: GOTO1LBe@ 
Q2=PEEK (BP+6 
Traz=610ORQ2=2S3THENIBSINT(RND(BC)#3)+1: GOTOL8e 
LFQ22230RQ295G0OTOSS 
LFQ@2340RQ242C0T01000 
LF Q@241ORQ249THENZ#=Z+1: GOSUBSOO: COTOLIO 
IF Q22420RQ*S5OTHENZ#Z+2: GOSUBSOO: GOTO1L9IO 
IF Q22430RQ251L THENZ#®Z+3: GOSUBSOO: GOTOLIO 
IB=INT (RNO (BC) #6941 
Q2=PEEK (EP+M( IB) ): IFQ2@CSSCANDQAKC>224GOTOL7TO 
POKESS@é2, INT (Z/10)+48: POKESSO63, Z+48-INT (Z/10) #10 
SP2=B6P+M( IB): POKESBP, BC 
| so camper opments pacielernstaiean PADDLE MOTION 
C=PEEK(T): IFC=L7B8ANDP<54941G0T 0260 
Boot reoseszTenrcxer 


P=P—3: POKER, PC 

NEXTA: GOTO1L1LO 

POKEBP+M (IB), B@: IB=INT(RND( BC) #3)+4: RETURN 

ig 3 maples omqusinmgagpemreniemises NO MESSAGES 
@ FORT#1T030: PRINT: NEXT: POKES683e2, 1 
L ITFQ<CS>e234ANDQC>32C0T01040 
@ PRINT“WELL, WELL. SO NOW I SUPPOSE YOU THINK YOU’RE" 
@ PRINT“ TOUGH, EH? WELL, YOU ONLY HAD"; Zi; “POINTS! “ 

@ PRINT“ SO THERE! !": GOTO1LOSO 

@ PRINT“NOBODY SAID IT WAS GOING TO BE EASY: :* 

@ PRINT “SERIOUSLY THOUGH, “; Zi “ISN’T TOO BAD!" 
© PRINT“ (BUT I GUESS THERE’S ALWAYS ROOM FOR IMPROVEMENT. >“ 
@ PRINT: INPUT“WOULD YOU LIKE TO TRY AGAIN"; YS 

@ IFLEFTS(YS, 1)="Y"THENRUNIS 

@ PRINT: PRINT“HAVE IT YOUR WAY. “: END 


TOR 


GAME 
CONV 


PEDO ---—- 
THIS PROGRAM WILL RUN ONLY ON MACHINES wxrTH ASCII wevsoaros. THrs 
CAN BE CONVERTED TO A POLLED KEYBOARD SYSTEM. (SEE PROGRAM 


ERTIONS. ) 


REM--R. VAN SCOY--TORPEDOE 

INPUT"DO YOU ark INSTRUCTIONS"; AS: IFLEFTS( AS, 1)="N" THENL3O 
FORX#1TO1S: PRINT: NEXT 

PRINT"HELLO ADM TRAL, ": PRINT"YOUR_ORDERS HAVE _PUT YOU IN CHARGE OF” 
PRINT"AN UNDERWATER, ANTI-SUBMARINE INSTALLATION. 

PRINT" YOU ARE TO DESTROY ALL SUBMARINES WHICH PASS OVER“ 
PRINT"COMMAND!!! BECAUSE OF THE IMPORT gs OF THIS ASSIGN-" 
PRINT"’MENT, YOUR PREFORMANCE WILL BE RATED, YOU WILL RECEIVE" 
PRINT"25 MERIT POINTS FOR EACH SUB YOU DESTROY. 

PRINT"GOOD LUCK ADMIRAL! " 

PRINT"OH, YES. I ALMOST FORGOT TO TELL YOU THAT DUE TO BUDGET" 
PRINT"CUTS, YOU MUST MAKE EVERY SHOT COUNT. BECAUSE EACH MISS" 
PRINT"“WILL COST YOU 3 POINTS, ANO EVERY SUB THAT GETS AWAY, " 
PRINT"WILL COST YOU TEN POINTS! !"“ 


@ PRINT" YOU MUST ALSO KNOW THAT THE SUBMARINES ARE EQUIPED WITH" 


PRINT"“AN AUTO-PILOT WHICH IS DESIGNED TO CONFUSE THE ENEMY!" 
M1L$="TORPEDOES: ": M2$="SCORE: 00 

FORX=1TOS: READT(X): TCX) =T(X)-64: NEXT 

OIMR< 1S): FORX#1iTO1S: READR(X): NEXT 

PRINT: PRINT: PRINT: INPUT"ENTER A RANDOM SEED"; Z1 
FORX=iTOS2: PRINT: NEXT 

KE=57088: T255040: C1#49 

NU=25: SC=90: TL2TP+45 

TP253440: H®1344: POKESS104, 32 
FORX=LTOLEN(M1$): POKETP+X, ASC (MIDS(M1S, X; 1)): NEXT 
FORX=LTOLEN(M2$): POKETP+X+32, ASC (MIDS(M2S, X, 1)): NEXT 
FORX#353504T053566: POKEX, 94: NEXT 


QO FORX=TTOT+64STEPLS: POKEX, 91: POKEX+2, 93: 


POKEX+6S, Ci: Ci2zC1+1: NEXT 

Z=INT (18#RND (ZL) )#644+53697: Z2215 

FORC@ZTOZ+60 

POKETL, 32: POKETI-1, 32: TL2C+R( Ze) 

POKETIL, 62: POKETI-1, 62 

SL=INT (NU/1@): S2=INT (NU-S1#19) : POKETP+12, S1+48: POKETP+13, S2+48 
S=PEEK (KE)-176 

TFSCLORSSSTHENGSO 

FORQ=T(S) TOT (S)-HSTEP-64 

C7=PEEK (Q-64): IFC7=620RC 72174 THENNU=NU-1L: COTO900 
POKEQ-64, 33: POKEQ, 32 

FORX=1LTO1LS: NEXT 

NEXTQ: NU=NU<-1: SC=SC-S: POKEQ, 32 

GOSUB92e 

Z2=INT (1L4#RND(Z1)+1) 

NEXTC: POKET1—-2, 32: POKETI-1, 32 

SC=SC-10: GOSUB920: GOTO35e 

REM---EXPLOSION OF SUB 

POKEQ, 32 

FORQi=O@TOS2: POKETI-1, Qi: POKETL, QL: NEXT 
aaa Eh aaa iat 

L=ABS (SC): SS#INT(L/100): S42INT( (L-100#S3) /19): SS=L-100#S3-10#S4 
IFSCCOTHENPOKETP+39, 45 

IFSC>=OTHENPOKETP+39, 32 

POKETP+490, S3+48: POKETP+41, S4+48: POKETP+42, S5+48 


@ RETURN 
@ PRINT: PRINT: PRINT: IFSCCLSOTHEN1L100 


@ PRINT"CONGRATULATIONS ADMIRAL, WITH "i SCi *POINTS® 
@ PRINT"YOU’RE AMERICA’S FIRST SUBMARINE ACEI TI: GOT014660 


QQ IFSC<LOO@THENL2OO 


@ PRINTSC; "POINTS IS EXCELLENT SHOOTING ADMIRAL" 

@ PRINT"IT’S GOOD ENOUGH TO GET YOU PROMOTED. “: GOTO1L60@ 

@ IFSC<CSOTHEN1300 

@ PRINT“WELL AOMIRAL, ";SCi "POINT IS PRETTY GOOD SHOOTING, " 

@ PRINT“BUT THE TOP MAN THINKS YOU NEED MORE PRACTICE. ": GOTO1600 
@ IFSC<O@THEN1L400 

@ PRINTSC; "POINT IS NOT VERY GOOD ADMIRAL. " 

S eoToLAoS COUNTRY IS LUCKY IT’S NOT DEPENDING ON You!!" 

@ PRINT“WHEN YOU ONLY GET “;SC;i “POINTS, THE ENEMY" 

@ PRINT"IS GLAD YOU’RE NOT ON THEIR SIDE. YOU’LL"“ 27 
@ PRINT"BE MOPPING THE DECKS TOMORROW, IF YOU DON’T" 

@ PRINT“ IMPROVE THAT SCORE! !!!" 

@ PRINT1L450: PRINT"SC="; SC 


28 


1600 PRINT: PRINT: PRINT: INPUT“DO YOU WANT TO TRY AGAIN": AS 
1650 IFLEFTS(AS, 1)="Y" THENCLEAR: RUN1L30 


1900 END 
2000 DATASSO4L, 55056, 55071, 55086, 55101 
2100 DATA-128, -127, -126, -63, -63, -62) 1, 2, 64, 65, 66, 128, 129, 130 @ 


STELLAR PERSUIT ---- 

THIS PROGRAM WILL RUN ONLY ON MACHINES WITH ASCII KEYBOARDS. THe 
PROGRAM CAN SE CONVERTED TO A POLLED KEYBOARD SYSTEM (SEEK PROGRAM 
CONVERTIONS). IN THIS GAME YOU ARE CHASING AN INVADER HOME ANDO TRYING 
TO DESTROY HIM. TO CONTROL YOUR TURRET DOBPRESS "1" TO MOVE DOWN, "eo" 
TO move ure, “3" TO MOVE RIGHT, “4" TO LEFT, ano "5S" tro £4STOP. 
DEPRESSING THe “T" WILL FrRe rocKeTs. Derress THe ‘"F“ TO FIRE THE 
LASERS. 


1 REM ###ROSERT L. 

2 REM #*#COPPEDGE 

~ POKE2O73, 96 

9 S123e: Se=3e: S3=3e2 

10 Shas X¥(20), ¥(20), Z(29) 


AL INPUT Z1 

12 FOR_Y=#53259 TO 355295: POKE Y, 32: NEXT Y 
14 KO#INT (53316+RND(Z1) #1915) 

16 FOR Y#1 TO 75 

17 CBINT (S5331L6+RND(Z1) #1915) 

18 POKE C, 46: NEXT Y 


2Q@ FOR Y#1 TO 19 

3@ X(Y) SINT (S53316+RNO(Z1) #1915) 

4Q@ Z(Y)#INT((X(Y)-39316) /64) 

435 WCY)@X (CY) —-353316~-64"Z(Y) 

vo IF We¥) C30 THEN W(Y) 2-1 

36 IF Z(Y)C14 THEN Z(Y)=—1 

J? IF W(Y)<34 AND W(Y)>30 THEN WC(Y)=0 
38 IF Z(Y)<18 AND Z(Y)514 THEN Z(Y)29 
S39 IF W(Y)S33 THEN W(Y)=1 

60 IF Z(Y)S17 THEN Z(Y)a1 

65 IF Mi#lil THEN 155 

70 POKE X(Y), 46: 


NEXT Y 
110 K#®55167: Ja=SSe231: G=S5199 
120 FOR Y=1 TO 10 
121 GOTO 302 
125 POKE X(Y), 32 
126 POKE 34177, 43: POKE 34173, 45: POKE 34047, 73: POKE 54303, 73 
130 XCY)BXCYI FWY) +648#Z(0Y) 
135 os XCY), 4 
140 IF X(Y)>S5S23i OR X(Y)<53916 THEN 150 
1435 IF X(Y)-33316-64#INT( (X (CY) -33316)/64)963 THEN 150 
146 IF X(Y)-S353316-INT( (XC Y)-53316)/64)<1 THEN 150 
147 GOTO 155 
15@ POKE X(Y), 32: Mi#1: GOTO 39 
155 M=#PEEK (57343) 
136 IF M=2i2 OR L*2 THEN 19° 
157 IF M=198 OR L#i THEN 162 
158 IF M>176 AND M<1i82 THEN 5350 
159 IF M>0 AND MCS THEN SSL 
160 IF M#198 OR L#i THEN 162 


GOTO 200 
162 IF Ate THEN 178 
163 H=H+1: L=1 
164 IF S=20 THEN 9900 
165 POKE J, 94: POKE K, 94 
166 POKE ee hirer POKE K+i86, 32 
167 J#J-66: K2K-62 
168 GOTO 300 
178 S8=S8+1 
1890 POKE 54373, 32: POKE 354361; 32: POKE 54307, 32 
181 POKE 54299, 32: POKE 54241, 32: POKE 54237, 32 
182 FOR I=1i TO 80: POKE 34175, I: NEXT I 
183 H=0: L=0: K2$5167: J=S5231 
184 POKE 54175, 32 
186 IF K@>54107 AND K®<354114 THEN SOO 
187 IF KO@>S4171 AND KO<S4178 THEN SOO 
188 IF K9>54235 AND KO<54242 THEN 500 


GOTO 209 
19@ IF H=8 THEN 195 


NEW 
GAME 


IF 86219 THEN 800 

POKE G, 32: G2G-128: POKE G, 34 
L=2: HeH+1: GOTO 200 

POKE G, 32: GaS55199 

S6=86+1: GOTO 182 

NEXT Y 


GOTO 120 

Nw INT (16#RND(Z1)+1) 

IF N68 THEN 125 

ON N GOTO 310, 315. 320, 325, 330, 335, 340, 345 
ear hg 6 347 


S=1: GoTo 347 


K4=aK @-53312-464#INT ( (KO-353312) /64) 

IF KQ@+S>SS231_ OR KO+8<353312 THEN 300 
IF K4<2 OR K4>61 THEN 3900 

POKE K®, S1:POKE Ki, S2:POKE K2, S83 
KO@=KO+S: KimKO+1: KAaKO—1: K3=KO-64 
SL=PEEK (KO): S2=PEEK (K1L): SS=PEEK(K2) 


S POKE K@ 79: POKE Ki, 92: POKE K2, 4 
GOTO 125 


PRINT"“ENEMY DESTROYED!": S7#S7+1 

FOR Y1=55039 TO 35061: POKE YL a2: NEXT Y1 
$1832: See32: $3=32 

POKE K-64, 32: POKE K0—-63, 32: POKE KQ—-65, 32 
KOmINT ('53916+RND(Z1) #1915) 

LF HEN 1000 


ah —) 
POKE 34113, 32: POKE 54199, 32 
es — 34239; 32 


GO 

M=aM—-17 

ON M GOTO SSS. 560, 570, 58, S85 
$#64: GOTO S90 


S=-1: GOTO 590 
S=0 


POKE K@, S1:POKE Ki, S2: POKE K2, &3 
KO=kKO+S: KisKO+1: K22KO—-1 

SL=PEEK (KO): S2=PEEK (KI): SS=PEEK (K2) 
IF KQ+8>55231 OR KO+S<53312 THEN 405 
K 4a 0-S331L2-464# INT ( (KO—-S5391L2) /64) 

IF K4<2 OR K4>61 THEN 60 

POKE K@ 79: POKE Ki, 92: POKE K2, 47 
GOTO 200 

KO=KO—-S: KiskK@+1: K2aKO—1 

53 Ale POKE Ki, 92: POKE K2, 47 


GO 4] 

PRINT" TUBES EMPTY... ":FOR Yeel TO S00: NEXT 
FOR Yia55039 TO SS@53: POKE Yi, 32: NEXT YL 
POKE K@-64, 32: POKE KO@-63, 32: POKE KO-65; 32 
POKE Ragke So POKE 54109, 32: POKE 53983, 32 


POKE 34239 

FOR Yiwi S 

er Rag dept AAR Ee 
6: NEXT Y1: GOTO 


OKE C, 46: : 290 
RINT"LASERS ORY... ": FOR Yisi TO 3500: NEXT Yi:L=@:GOTO S@e@1 


UvWVU 


=) 
1000 PRINT" YEEEE—HAHHH! ! ! ™ 
1010 END 


YORK TAXI ---=— 
THES PROGRAM WILL RUN ONLY ON MACHINES WITH ASCII xevsoaros. TrHrs 
CAN BE CONVERTED TO A POLLED KEYBOARD SYSTEM. (Sanz PROGRAM 


CONVERTIONS. ) 


NCASne 


REM<-------8. BENNETT<--N. Y. TAXI-—-=— 

PRINT“DO YOU WANT DIRECTIONS (Y OR_N)“: INPUT ES 

IF ASC(E$)#78 THEN 17: PRINT: PRINT: PRINT™NEW YORK TAXI" 

PRINT: PRINT "WITH OUT. OBJECT OF THIS GAME IS TO CATCH A TAXI.... " 29 


INT: PRINT"WITH OUT oon oa ae SAID TAXI (ITS HARD TO GET N.Y. " 


PRINT: PRINT"CABBIES ATENTION 
PRINT: PRINT: PRINT" YOUR CONTROLS ARE“: PRINT: PRINT"L ~ MOVE UP " 


8 PRINT: PRINT“2 -— MOVE DOWN": PRINT: PRINT‘S —- LEFT" 


9 P 
10 


RINT: PRINT"4 -— RIGHT": PRINT: PRINT* AND MOST IMPORTANT" 
PRINT: PRINT"S - FLAGS DOWN TAXI" 


1i PRINT: PRINT"OH, I ALMOST FORGOT, YOU HAVE TO BE DIRECTLY“ 


PRINT: PRINT"IN FRONT OF THE CAB FOR HIM TO NOTICE YOU. “ 
PRINT: PRINT“READY (Y AND RETURN)": INPUT RS 

FOR N#=i TO S32: PRINT: NEXT N 

Kai: HeS4i1l2: I=H: GOTO790 

FOR N®CA TO CA+8: POKE N, 32: NEXT N: POKE CA-61; 32 

POKE CA-6@; 32: POKE CA-S9, 32: POKE CA+66, 32: POKE CA+71, 32 
CA@CAt+2: IF LNOSS THEN 700 

FOR N=CA TO CA+8: POKE N, 62: NEXT N 

POKE CA-é1, 47: POKE CA-69, 61: POKE CA-S9, 92 

POKE CA+66, 79: POKE CA+71, 79 


28 LN=LN+2 


IF VI>@ THEN 310 
FOR N#®1i TO12: HI=PEEK (CA+N) 
ee ee neces 


2 
FOR VsI-1 TO I+1:POKE V, 32: NEXT V: POKEI~-64, 32: POKE I+63, 32 
POKE I+65, 32 
POKE H, 48: POKE H-64, 79 
POKE H+63, 47: POKE H+65, 92 
tg H+L, 92: POKE H—-1, 47 


M=PEEK (357343): kets fa OR M>182 THEN 19 
IF M=®L77 THEN H=H-64 

IF M#178 THEN H=H+64 

IF M*®179 THEN HeH-1 

IF M=180 THEN H=H+1 

IF M2i8i THEN 200 

M=@: GOTO 19 

POKE H-1, 32: POKEH+L, 32 

FOR N=@ TO 70: NEXTN: IF K/22INT(K/2) THEN23O 

POKE H-63, 47: POKE H-65, 92: FOR N=@ TO 70: NEXT N 

POKE H-63, 32: POKE H-65, 32: K=K+1: GOTO 19 
POKEH-1L, 47: POKEH+1, 92: FOR N=Q@TO70: NEXTN 

K=K+1: GOTO 19 

HI=9@: VI=3 

IF K/2=INT(K/2) THEN 400 

SoToLS”” IF VI<i THEN 320: GOTOL9 

POKEH-64, 83: POKE H-63, 80: POKE H-é62, 76: POKE H-61, 65: POKEH-6@, 84 
Pacts U>3 THEN 3500 

= — 

PRINT"WELL, WHATS A FEW MONTHS IN THE HOSPITAL.. 

PRINT: PRINT" (DONT ANSWER) YOU LOSE 10 POINTS ON THAT ONE”: PRINT 
PRINT" WANT TO TRY AGAIN 7": INPUT DS 

IF ASC(DS$)=89 GOTO 17 

ao HUH 7 TAKE A BUS NEXT TIME !" 


—o SCORE : "i; SC 


POKE H+1, 92: POKE H-L, 47 

SC=SC+25 

IF SC>200@ THEN 46090 

PRINT, “CONGRATULATIONS !"“ 

PRINT: PRINT" YOU | CAUGHT A CAB WITH NO BLOOD LOST !" 
PRINT “SCORE 3 SC 

FOR B=i TO 1500: NEXT B 

VI=@: GOTO 17 

PRINT"OUCH ! I BET THAT HURT !" 

PRINT: PRINT 

PRINT: PRINT“IT COST YOU 10 POINTS TOO. IN VIEW OF ALL YOU’ VE" 
PRINT: PRINT" GONE THROUGH, I’LL GIVE YOU ANOTHER CHANCE" 


331 
PRINT "SAY ec YOU BY ANY CHANCE FROM NEW YORK... 7" 
PRINT: PRINT"SCORE : + SC 
GOTO 458 
eaee ee ee eee 

on 


. 
GOTO22 


Memory Dump 


Purpose 
The program permits the user to dump contiguous blocks of 


memory Of any length (65A will not dump blocks of more than 
256 words). This program also enables the user to 
specify the end address of a dump. This is very valuable 
when running at high baud rates! 


Memory Allocation 
OF7C = OFB4 and OOFA-OOFB 


Starting Address- OF7C 


Relocation Information 
The only position dependent instruction is the JMP at OFA4 


Use 
Load the "GO" locations and load FA with the ending address 
low and FB with the ending address high. Type a "G”. 


The program replies with an "X" and expects a four digit 


hex starting address for the dump. 


The program prints 


the block up to and including the last byte specified 
(unlike the 654A, this program will stop in the middle of 


a line). The program types an "R" and returns to the 683A. 

Memory Dump 

Location Op Code Mnemonic Notes 

F7C AS 58 DUMP LDA #'X Type an 

F7E 20 OB FE JSR OUTCH os" 

F8l1 20 C7 FE JSR BUILD Accept Start- 
ing Address 
for Dump 

F84 AO 00 LDY #$00 Clear Index 

F86 A2 09 DU® LDX #$9 Set Byte/Line 
Count 

F88 AQ OD LDA #'CR Output 

F8A 20 OB FE JSR OUTCH a Carriage 

F8D AS OA LDA #'LF Return, Line 

Feed 

F8F 20 OB FE JSR OUTCH 

F92 CA DU1L DEX Decrement 
Byte/Line 
Count 

F93 FO Fl BEQ DU? Reset if Zero 

F95 20 EO FE JSR PRTBYT Print Current 
byte 

F98 AS FA LDA FINL Low Address 

FOA cS FC CMP FC Match? 

F9C FO 09 BEQ DU4 

FOE E6 FC DU3 INC FC Increment Pointer 

FAO DO FO BNE DU1 Carry? 

FA2 E6 F INC FD Yes, Carry! 

FA4 4C 92 OF JMP DU1 Loop Back 

FA7 AS FB DU4 LDA FINH High Address 

FAQ CS FD CMP FD Match? 

FAB DO Fil BNE DU3 

FAD A9 §2 LDA #’'R Print an 

FAF 20 OB FE. JSR OUTCH "R" and 

FB2 4C 40 FE JMP CONTROL + B Exit 

31 
FINL FA 


FINE FB 


PRINTER PATCH ---- 


This program is a patch for OS-65U operating system to enable the 


use of a Selecterm printer on C3 machines. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
OK 
POKE 


BACK SPACE ---- 
This program 


td 


CREATED BY FOUR STATE MICRO COMPUTER SYSTEMS INC. 
JOPLIN, MISSOURI 64801 

JOE F. LINDEN 

NAME -- PRINTER PATCH FOR SELECTERM PRINTER 
EXECUTES IN BASIC MODE OF OPERATION 

RE-CREATION DATE -- 7/18/78 


EXECUTIVE OVERLAY ROUTINE AS FOLLOWS -- 


A(53) 
I=1 TO 53:READ A(I) :NEXT I 


J= 8668 TO 8696:POKE J,A(I) :IzI+1:NEXT J 
K= 8576 TO 8599:POKE K,A(I) :I=I+1:NEXT K 


DATA 169,0,141,03,247,141,02,247,169,4,141,03,247,173,02,247 
DATA 41,128,201,128,208,247,169,0, 76,128,33,36,36,141,03,247 
DATA 169 ,127,141,02,247,169,44,141,03,247,173,205,34,41,127 
DATA 141,02,247,76,143,34 


8708,129 


new 65U editor. 


296 REM FOR SACK SPACE THIS LINE SHOULD SAY GOSUB Seed 


3008 REM POKE OUTPUT TO ALLOW PRINTING OF BACKSPACE 
3618 POKE 24340,8: REM BACSPC=8 

3626 REM POKE PATCH INTO INPUT ROUTINE 

S038 POKE 1373, 76:POKE 1374,2:POKE 1375, 92 

3840 REM POKE PATCH INTO $SCa0 

3658 FOR PTR=22552 TO 23574 

3868 READ MAC: POKE PTR, MAC 

3876 NEXT PTR: RETURN 

3868 DATA 201, 8, 208, 13, 32, & 48 72 

S898 DATA 169, 32, 32, 8 40, 184, 76. 76. 5 76. 97,5 


32 


is for enabling the backspace for the 0OS-65U 
Operating system on C3 systems. NOTE: this routine interferes with the 


REPORT WRITER --- 


This program is a Report Writer which can produce generalized 
listings and selective reports from disk files. The program will 
run on C3 systems under 65U. 


3 FORX=1 TO 32: PRINT: NEAT 
4 PRINT"REPORT WRITER‘ 
5 PRINT*-——----——-" 
6 PCKEZ@SS, 9:REM ACCEPT NULL INPUT 
? FLAGS: FLAGLA: REM FLG9-S0eG8 ERR CHK FLOLL-SPRCE SLIPP 
16 0¥(41)=PEEK(9832): IF OV(4)2427 THEN DV(41)=D¥(1)-128+4 
38 DYS(1)=CHRS(D¥(4)465) 
46 INPUT“DEVICE FILE STORED ON °; OVSC2) 
414 OVS(2)=LEFT$(D¥$(2), 4) 
42 IF DY$(2)>="A" OR DYS(2)<="E" GOTO S41 
43 PRINT:GOTO 42 
| 49 GOTO 34 
58 PRINT :PRINT“LHAT!": PRINT 
Sd INPUT"FILE NAME, PRSSWORD °; INS, PS 
68 IF LENCMNS)<S THEN SNS=MNS+" °: GOTO 68 
65 IF LENCNNS)>6 THEN GOTO SO 
7B FS=LEFTSCMNS, 5)+°9" 
118 IF P$=" “ THEN P$="ANRN" 
138 IF LENCPS$)O4 GOTO 5@ 
198 INPUT"CONSOLECC) OR PRINTERCP)*; ¥$ 
208 PRINT 
218 IF LEFTSC¥S, 1)="P" THEN YO=5:Si=132:G0T0 28 
238 IF LEFTS<¥$, 19="C" THEN YO=PEEK(11665) :SH=68:G0T0 298 
258 GOTO 199 
290 INPUT“ENTER HEADER COMMENT “; HS 
295 PRINT 
348 NES=** IF HS=NES$ GOTO 338 
348 IF LENCHS)>oW-13 THEN PRINT*MAXIUM LENGTH OF COMMENT °; SW-18:G0TQ290 
338 Y=1@3:01N LSCY):DIM FPCY):DIM FLCY):DIM LLS<Y) 
335 DIM LFCY) 
349 REM 
35@ PRINT"ENTER LABELS (WHEN FINISHED TYPE ‘DONE’ FOR THE NEXT LABEL)“; L$<x) 
SOS NE 29:X=4: Y=183 
363 PRINT: FORX=4 TO Y:PRINT*LABEL # "3X : INPUT L$(X) 
388 IF L$(X)="D0NE" AND NF=8 THEN GOTO 2028 
398 IF L$(X>="DONE" THEN U$(X)="":GOTO 468 
396 IMPUT“LABEL CHANGE (Y OR ND “3 CS 
396 IF C$O*°Y" AND CSO"N" THEN GOTO 395 
397 IF C$="N" GOTO 418 ; 
468 PRINT"ENTER CHANGE FOR LABEL # °; X: INPUT LLS$<X> 
448 PRINT 
45@ NF=NF+1:NEXT X 
466 REM 
473 INPUT“ARE ALL LABELS ENTERED CORRECTLY NOW (Y OR ND"; GS 
475 PRINT: PRINT 
485 IF LEFTSCQS, 4)=“¥" THEN GOTO 600 
498 IF LEFT$(Q$,4)="N" THEN FORX=1 TO NF:L$(X)="" 
380 NF=NF-1:NEXTX:G0TO 358 
688 DEV DY$(2) 
658 OPEN FS, PS, 4 
6465 INDEXCD=9: INPUTZL EODF 
6°08 INDEXCD=20: INPUT 24 BCOF 
679 [NDEXC15=34: INPUT ZL RL 
628 INDEX D=42: INPUT 2 NR 
698 FOR X=1 TO NF 
888 FPCX)=1£8 
S59 NEXT X 
968 GOSUB Save 
946 FOR ‘=i TO iF 


920 IF FPCY)<41E8 GOTS930 

S24 PRINT"ERROR **F ELD NOT FOUND#®“-FORK=1 TO NF+2:L$(X)=NES$:LLOCR SHES 
922 FL(X)=9:FP(X)=9: TT=3:S=8:CLOSE 1:G0TO 249 

933 NEXT Y 

958 PRINT 

1889 LR=3 

1268 IF CNT=@ GOTO i242 

1228 IF LC<SS5 GOTO 1419 

1249 PG=PG+L: PRINT#VD 

1258 PRINT#V9, HS; TABCSW-18); :PRINT#VD, “ PAGE "3 PG 

1280 PRINT#HD 

1298 IF CNTD@ GOTO 1330 

1308 REN SECTION TO CALCULATE TASS FOR OUTPUT 

1585 FL=FL+4: IF FLOL THEN GOTO 1326 

1318 DIN PPCNF+1): REM PP=PRINT POSTION<S) 

4320 FOR X= TO NF 

1325 IF LENCLL$(X))=>4 THEN L$(X)=LLS(X) 

1338 IF FLCX)<LENCLS(X)) GOTO 1368 

134 REM FIELD LONGER THAN COLUMN HEADER 

4258 PPCX44)2FL(X)4PP(X9+3: GOTO 1378 

1368 PPCX#1)=LEN(L$(X) 4+PP(X)+3: REM HEADER > FIELD 

1370 NEXT: REM TABS ARE SET AT THIS POINT 

1374 IF PPCNF+L)<SW THEN GOTO 4390 

1372 PRINT°ERROR *eWIDTH CF REPORT WRITER IS “; PPCNF+1)-SH; “ CHARRCTERS TO"; 
1373 PRINT"O LONGre* :FORK=4 TO NF+2:L$(X)="" :08(X)2"" : FPCX)=8: FLX) 20: oe 
1374 PGs@:LLSCX)2°": IF XCF THEN PPC X)=8 

1375 NEXT X:CLOSE1:GOTO 349 

1398 FOR X=1 TO NF: PRINTHYD, TABCPPCX))3L$¢X)3 : NEXT: PRINT#D: PRINTSVO 
1390 REM 

1490 REN 

4449 FOR X=i TO NF: INDEXCI>=B0DF+FPCX)4LR: INPUT 24, 08(X): NEXT 
1420 FOR X21 TO NF: PRINT#D, TABCPPCX)); O$(X); : NEXT: PRINTHD 

1858 LRLRtRL : CNTSCNT+1: IF CNT=NR THEN GOTO 2229 

1868 IFINDEX(1)>=E00F GOTO 2080 

1888 LO=LC+1: IF LC5S4 THEN LC=@:GO0TO 1248 

1908 FOR Rei TO NF :DS(X)2°": NEXT R 

1958 GOTO 1419 

2030 DEYOV'S<1) : CLOSE: FLAGI3: FLAGI2: 

2010 PRINT: INPUT"ENTER A C TO-CONTINUE °; QRS:FORX=1T032:PRINT:NEXT: END 
3088 TT28: INDEXC>=§3 

SQ58 INPUT ZL xX$ 

5108 FOR X=1 TO NF 

5481 Y=x 

5450 IF L$(X)=X$ THEN Ust#1:GOTO cae 

See NEXT X:GOTO S358 

9368 FP(X)=TT 

5358 INPUT 24 LFCY) :REM GET FILE LENGTH 

S400 TT=TT+LFCY): REM KEEP RUNNING TOTAL INTO RECORD 

3425 IF L$CX)2X$ THEN FLCY)=LFCY) 

ASO B=B+LENCL$(X)): IF BeNF<SW THEN GOTO SS5@ 

3468 PRINT“WIDTH OF REPORT WRITER > °; Sis :PRINT® CHAR": FOR X=1 TO NF 
5478 LS(X)="9 NF SNE =: FPCX)=8:NEXT X 

5488 TT28:8=2 

3098 CLOSE 1:G0TO 349 

S508 IF INDEXCL><BODF GOTO Seca 

S600 IF INCEX(4)>BOQDF THEN PRINT"ERROR **FILE HEADER ERRORe+" 

5708 RETURN 

S008 REM ERROR HANOLING IS DCNE HERE 

sees ER=PEEK (13226) -EL=PEEK(44.74)+PEEK (1175) #256 34 
50820 REM CHK FOR CHANNEL ALREADY OPEN | 


30039 IF ER=133 THEN CLOSE 

S049 REM CHK FOR NCN-EXISTANT ENTRY ERRCR 

v0G58 IF ER=128 THEN ERRS="INVALID FILE NAME": GOTO S2daa 
$6068 REM CHK FOR END OF FILE HIT ERRGRR 

30878 IF ER=132 THEN ERRS="END CF FILE ERRUR":CLOSE:GOTO S2aa0 
JG8G8 REM CHK FOR SYSTEM ERROR 1.& CHANNEL NOT OPEN ERROR 
20090 IF ER=129 THEN ERR$="CANNOT ACCESS FILE*:GOTO 52000 
38108 ERRS$="DISC ERROR CODE “+STRSCERD+°IN LINE “#STRSCELD 
38200 CLOSE 

J2008 PRINT: PRINT" semreKERROR eee": PRINT : PRINT 

53080 PRINT ERRS 

54008 REM PICK UP DISC ADDRESS WHERE ERROR OCCURED 

34018 EA=3:FORI=4 TO 1 STEP -1:ER=ER*256+PEEK(S68G+1) :NEXT I 
34820 D=PEEK(9622): IF 09427 THEN D=0-120+4 

J4030 PRINTSON DEVICE “+CHR$(D+65)+" AT DISC ADDRESS"; EA 
34048 REN COMNC! EXIT PATH 

P4058 DEY CHRSCDY(4)+65) :REM SELECT ORGINAL DEVICE 

‘34068 FLAGLS: FLAGL2 

74078 PRINT: INPUT"ENTER AC TO CONTINUE °; QRS: FORX=LTO22: PRINT : NEXT: END 


LOCATE FILE ON DEVICE ---- 
This program locates any file under 0S-65U operating system on C3 
machines. 








48997 REM 

489938 REM LOCATE FILE ON ANY DEVICE ----- 

48999 REM 

49000 DO'VS="RA":IF CH=@ GOTO 49020 

49016 DEY OVS:OPEN FS, PS,.CH: GOTO RL 

49020 DE’ OVS: RUN FS, PS, SL 

~G00G ER=PEEK (192265 : EL=FEEKC 117° 749+PEEK C117 7S59*256 

36G16 IF EL<>49610 AND EL<>49020 GOTO 54168 

3GG26 OVS=CHRS(1+ASCCDOYS99:IF OVS<"I" GOTO EL 

30636 PRINT: PRINT“FILE OR PROGRAM NOT FOUND ON LINE”: PRINT: PRINT 
36040 PRINT“PUT THE FILE < “:F%;*% > ON LINE”: PRINT 

38650 POKE 2333. 4: INPUT“ENTER A C -TO CONTINUE "3 xt 

36666 GOTO 42000 

S6166 PRINT: PRINT”"OISC ERROR" : STOP: REM. «ee STANORRD DISC ERROR POINT 
~9997 REM 

99993 REM ROUTINE CESCRIPTION -—--- 

S99339 REM 

60006 REM ENTRiv-— FS,PS = FILENAME AND PASWORD 

66016 REM CH= RUN AS A PROGRAM 

69620 REM CHOG OPEN AS A DATA FILE 

68625 REM RL = RETURN LINE NUMBER 

66026 REM CSTACK LOST ON ERROR--NO SUB ROUTINES) 
66627 REM CNO FOR LOOFS> 
60630 REM 

68640 REM EXIT RETURN TO LINE RL CRETURN LINE NUMBER) 
66650 REM IF NO FINO THEN ALLOWS RETR'YS UNTIL FOUND 


35 


pares “stete% CASH FLOW BUDGET ANALYSIS #42" 
1% 3 
PRINT “* PROGRAM BY P LINOQUIST 04/15/79 +x" 
PRINT “* *" 
PRINT "3646464646 46 46-46-56 56 46-56 56 46 46 6 St SE Ie 8 4b SE 9 SE HE IEE Ht ab i tt 2 Ht Ht at 
REM 


REM PROGRAM PERFORMS CASH FLOW BUDGET ANALYSIS AS 

REM FUNCTION OF CALENDAR PERIOOS BASED ON WEEKLY START 
REM DATES IN DATA STATEMENTS BEGINNING AT L/N 1600. 

REM AVAILABLE OISK FILES : "SAMPLE" 

D01is="SAMPLE" 

NP=9 

DIM P$(26), PS(26), BAL(24) 

DIM F(30), DATES( 30), IES(30), AMT(30), st eee 

PRINT“OO YOU WANT INSTRUCTIONS (Y OR N)? 


K=357088 

POKEK, 4 : IFPEEK (K)=8THEN2OOO 

FOKEK,16 : IFPEEK(K )=8THENGOSUB1145: GOTO2000 
GOT01140 


FORI=1LTOLO@: PRINT: NEXT 

REM INSTRUCTIONS 

PRINT: PRINT“"FPROGRAM PERFORMS CASH FLOW BUOGET ANALYSIS. “ 
PRINT"“PROGRAM WILL ASK WHAT ACTION IS REQUIRED BY" 


PRINT“PRINTING “REQUEST? ’. YOU MAY bring te NO BY" 

Sete H Tf PP B . & R. OR DO AS FOLLOWS: " 
PRINT"“H--REPEAT INSTRUCTIONS" 

PRINT" T--INCOME OR EXPENSE TRANSACTION" 

PRINT"“P--SHOW DETAIL FOR PERIOD" 

PRINT"B--DISPLAY BALANCE FORECAST, HISTOGRAM. ANO STATISTICS" 


PRINT“L--LIST ALL TRANSACTIONS" 
PRINT"“S-~-SAVE TRANSACTION FILE ON DISK FILE" 
PRINT“R--RECALL TRANSACTION FILE FROM DISK“ 
PRINT“O--DELETE TRANSACTION" 

PRINT"“E--WILL EXIT TO THE SYSTEM MONITOR" 


PRINT 

PRINT" T--( INCOME OR EXPENSE ibiege cin sepbn cag ly WILL BE FOLLOWED" 
PRINT“BY ’7° TYPE ’DATE., I or E, AMOUNT, DESCRIPTION’ “ 
PRINT"FOR EACH TRANSACTION, WHERE ‘I’ INDICATES INCOME, " 
Haas ‘E’ INDICATES EXPENSE. 

PRINT“TO CONTINUE, HIT SPACE BAR" 

peas >: POKEK,2 : IF PEEK(K)=@ THEN 1370 


PRINT“DATE MUST BE_IN FORMAT MM/DO/YY. IF DATE IS" 

PRINT“ °00/00/00’, THE TRANSACTION WILL BE REPEATED EACH" 
PRINT “PERIOD. IF MM IS ‘00’, eae WILL BE" 
Ne ia FOR EACH MONTH 


PRINT“P--(DETAIL FOR PERIOD) WILL BE FOLLOWED BY 
at lB Ait IN THE PERIOD START DATE (MM/DO/YY). 


PRINT"B--(BALANCE FORECAST) WILL BE FOLLOWED BY ‘7°. TYPE" 
PRINT"IN THE BALANCE FORWARD AND THE NUMBER OF PERIODS TO" 
PRINT"BE FORECAST. 


PRINT 

PRINT“O--(DELETE TRANSACTION) WILL BSE FOLLOWED BY ‘77’. " 

PRINT" TYPE IN THE ’OESCRIPTION’ OF THE TRANSACTION TO BE" 

PRINT“DELETED EXACTLY AS TYPED WHEN THE TRANSACTION WAS" 

PRINT"“ENTERED. “ 

PRINT 

RETURN 

DATAL2E/31/78, OL/O7/79, OL/14/79, OL/21/79, O1L/28/79, 02/04/79 

DATAQG2/11/79, 92/18/79, 92/25/79, 93/04/79, O3/11/79, 93/18/79 

DATAQ3/25/79, G4/01/ 79, 04/08/79, G4/15/79; C4/22/ 79, 04/29/79 

DATAGS/06/79, OS/13/79, OS/20/7% OS/27/79, G@6/03/79; 86/10/79 

DATAQS/ 17/79, 06/24/79; OT/OLS TY, OT/GB/7T9, OT/15/79, OT/22/79 

DATAO7/29/79, 98/05/79, O8/12/7%, 9B/19/79, OB/26/79, 09/02/79 

DATAGQP/09/79, OF /16/79; OB9/23/ TP O9/3O/79, 16/07/79, 10/14/79 

DATA1O/21/79, 10/28/79, 11/04/79, 11/11/79, 11/18/79; 11/25/79 

Borel er Cae Cade ome ee ee eer) eee ery se er era 
INITIALIZE PERIOD START DATES 

DATA" NULL” 

RESTORE : PRINT : PRINT 

PRINT“ INPUT THE START DATE FOR THE FIRST WEEK 

eeu oe START WITH A SUNDAY: "; 0S 


RINT 
GOSUB 2300: SD=SI 
epee ea OF WEEKS IN A PERIOD: "i NW 


READ DS: IF DS$<>"NULL" THEN2020 


nye e¢ 


“MM/DO/YY ’" 


0 
Pu 


BOMabewece DATE NOT FOUND —- RESTART PROGRAM" 
GOSUB 2300 : IF ABS(SI-SD)>2 THEN 2014 
P$(1)=0% : PS(1)=SI : NP21 


w 
or Se >: IF O$="NULL" THEN 2050 


& NEX 
GOSUB 2300 : PS$(J)=0S : PS(J)#SI : NPaNP+L 
@ NEXT J 


ROR tai TOHR Stee DATES ARE AS FOLLOWS: “: PRINT 


I}, 
B 4 ad I<NP THEN PRINTTAB(25)i PS(I+1) 
XT N PRINT 


i PRINT 
PRINT"IS THIS OK? "3 
K=57088 
POKEK, 16 :_ IF PEEK(K)=8THENPRINT" YES": GOTO2100 
POKEK, 4 : IF PEEK (K)*#8THENPRINT"NO?": GOTO2Z000 
GOTO02064 
PRINT: PRINT: PRINT 
NT=@ : REM NUMBER OF TRANSACTIONS 
ST=i00 :REM ST IS HISTOGRAM STEP SIZE 
PRINT: FOR IL=1LTOSO@: NEXT: PRINT“REQUEST? "; 


FOKEK, 16: X=PEEK (K) 

TFX=G4THENPRINT "B®: RUN"BEXEC+# 
LFX2S32THENPRINT"R"“: GOSUB41@0: GOTO2130: REM INPUT FILE 
LFX@®LSTHENPRINT"T": GOSUB235@: GOTO213@: REM TRANSACTION 
POKEK, 32: X=PEEK (K} 

ee A ENERINT UL": GOSUB4000: GOTO213@: REM LIST 
POKEK, 8: X#PEEK (K ) 

LFX@=L28THENPRINT"S"“: GOSUBSO0@: GOTO2Z130: REM DISK SAVE 
LFX#644THENPRINT"D": COSUB360@: GOTO2Z130: REM DELETE 
cert ayaa GOSUB1169: GOTO21L30: REM HELP!!! 
OKEK, 4: X#PEEK (K) 

LFX2LSOTHENPRINT "8": GOSUB27@@: GOTO2130: REM BALANCE 
POKEK, 2: X=PEEK (K 

cathe GOSUB330@: GOTO02130: REM PERIOD DETAIL 
REM INTEGER-FOR-DATE SUSROUTINE 

OS=RIGHTS (DS, 8) 

DD=VAL (MIDS (DS, 4, 2)) 

MM=@VAL (LEFTS$(DS, 2) ) 

YY#VAL (RIGHTS(DS, 2) ) 

ae 


REM TRANSACTIONS plc iB dae 
FORI=1 T0100: NEXTI: NT+1 
INPUTOATES (NT), ZE®, ANT (NT), DESS$ (NT) 
OS=DATES(N 

GOSUB B4L0 

IFFLAG2LTHENNT=NT-1: RETURN 

P(NT)#IN 

LES(NT)=LEFTS(IES, 1) 

LFIES(NT ah l"ORIES (NT ) SSE" THENRETURN 
FRINT“INCOME OR EXPENSE? “; 

X=USR(X): ia alla 

PRINTCHRS (xX) 

TFXSGSTHENTES (NT) ="E": RETURN 

LF X=7S3THENIES (NT) "I": RETURN 
GOT02430 

ae ee ees SUBROUTINE 


IFLEN (0% ) <S>6THEN2400 

LFMID$ (0S, 3, L)<>"/"THEN2SO0O0 

IFMID$ (OS, 6 1)<>"/"“THEN2600 
COSUB2300 

LFMM>L2THEN24600 

LFDDSSLTHEN2600 

IFSI=OTHENIN=0: RETURN 

SOR TNeI TONS LS RETURN 

NEXTn =SIANDSI<PS (IN+1) THENRETURN 


X 
PRINT"“DATE NOT WITHIN RANGE OF PERIODS IN DATA TABLE" 
PRINT“OATE MUST BE IN FORMAT ‘’MM/DD/YY’ FOR EXAMPLE, “ 
PRINT"4TH OF JULY 1979 WOULD BE ‘07/04/79. " 
FLAG@21L: RETURN 
REM EXPENSE-INCOME SUBROUTINE 
IF ITES$( J) ="E"“ THENBAL (I) =BAL (I3—-AMT(U 
IF ITES(J)#"I"THENBAL (I) =BAL (I) +AMT CU 


v 


PS 
m 


nn 
c 


= 
m 


) 
) 
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RETURN 

REM BALANCE SUBROUTINE 
FOR I=1T0100 : NEXT 
INPUT BAL, NS 

IF NSSNP THEN NS=NP 


PRINT 

PRINT“BALANCE FORWARD :“i BAL 

PRINT 

PRINT “PERIOD BALANCE“; 

PRINTTAB (25) ij “Swoon rn nnn rn PP 4444+" 
BAL (1) =BAL 

FOR I=#1TONS- 


iL 
IF I>1i THEN SAL(I)=BAL (I-1) 
FORJ=1LTONT 
IF P(J)=0 THEN GOSUB 2640 : 
IF P(J)#I THEN GOSUB24640 : 
IF P(J)39 THEN 2900 
GOSUB3000 
IF FLAG=1LTHENGOSUB2640 
NEXTJ 


PRINTPS(I+1); “ "“; BAL (LT); 
GOSUB31L0e 

NEXTI 

GOSUBSS00 

RETURN 

REM EACH-MONTH SUBROUTINE 


FLAG=0 

DO=VAL (MIDS (OATES(J), 4 2)) 
DL=VAL (MIDS (PS(1L), 4, 2)) 
De=VAL (MIDS (PS$(I+1), 4, 2)) 
IF LEFTS(P$(I), 2)2LEFTS(PS$(I+1), 2) THENSO7O 
IF ODD>2O0LTHENFLAG=1 

IF DO<D2THENFLAG=1 
IF OD>=DLANDDD<De2THENFLAG=1 
RETURN 
REM HISTOGRAM SUBROUTINE 
IFBAL (I )<ST/2THENS14690 
PRINTTAB (40); 
FORJ=LTOINT ( (BAL (LI) /ST)+. 5) 
PRI "$"; 


IFPOS (1) SS9THENS210 
NEXTJ 


GOT03219 
IFBAL (I) >=-ST/2THENS219 
PRINTTAS (40+INT( (BAL (I) /ST)+. 5)) 


PRIN i 

IFPOS (I) >=4OTHENS210 

GOTO03180 

PRINT 

RETURN 

REM PERIOD-DETAIL SUBROUTINE 
FORI=1T0100: NEXTI: INPUT DS 
GOSUB2460 

le 


BAL (I) =@ 
SJ=SI 

PRINT "DATE", 
PRINT 


FORJ=LTONT 
aeuskeeet igo 
OS=DATES( UJ) 
GOSUB23900 
LFP (J) =IANDSI>=SJUTHENS 440 
LEP (J} SOTHENS48O 
GOSUB3000: IFFLAG=@THENS480 
GOSUB2640 
Sry Reda TE$(J), AMT (J), DESS(U) 
PRINTTAB (28); 
PRINT BALANCE FOR PERIOD: "; TAGB(28); BAL (TI) 


RETURN 

REM OELETE-TRANSACTION SUBROUTINE 
FORI=1TO100: NEXTI: INPUT DESS 
FORI=LTONT 

IFDES$=D0ES$ (I) THENS640 

NEXT 


GOTO02900 
GOTO29900 


“EXP/INC", "AMOUNT", “DESCRIPTION" 


PRINT" TRANSACTION RECORD NOT FOUND: "; DES$ 
RETURN 

P(T)=P(NT) 

DATES(L) =DATES(NT? 

TE$(I)=IES(NT) 38 


AMT (I) AMT (CNT) 
DES$(I)=DESS$ (NT) 
NT=NT-1 
RETURN 
M STATISTICS SUBROUTINE 
IFNS<LTHENRETURN 
SN=O 
SX=0 
SY=0 
X2=O 


XY=Q 
FORI=ILTOIL+NS 
SN#SN+1 
SX2Sx+I 
X2=eX2+I4¥L 
SY=SY+BAL (I) 
XYBXY+I#BAL (I) 


NEXTI 
A=@SN#X2—-SX#SX 


4Q B=a(SN#XY-SX#SY)/A 


PRINT “SLOPE IS “; INT(B);“* (DOLLARS) PER PERIOD" 
RETURN 


REM TRANSACTION-LIST SUBROUTINE 

PRINT“ TOTAL NUMBER OF TRANSACTIONS: “i NT 
PRINT“DATE", “INC/EXP", “AMOUNT", TOESCRIPTION" 
FORI21LTONT 

Sere oe au tare raven ae mere ee 


URN 
REM OISK RETREIVAL SUBROUTINE 
FOR IsiTOi NEXTI 


20: 
INPUT “NAME "; NAMES 
TFNAMES<>01 SANONAME$<>028ANDNAME $<>038 THENRETURN 


» NAM 
FILE FOR “; NAMES; “ OPEN“ 


ES(I), AMT(I), OESS(T) 


ca 


NEX 

pean CLOSE. 6 

cota 7 LOAD COMPLETE - 
K ee SAVE ROUTINE 


01900 
INPUT "NAME"; NA Mes 
TFNAMES<O03 6 ANONAME # ¢>D28ANONAME8<>098 THENRETURN 


DISK EN, AM 
PRINT“OISK FILE FOR “; NAMES; " OPEN" 
PRINT N 


“; NAMES: PRINT 


PR 
PRINT#6, 
NEXT 
OISK CLOSE, 


PRINT 
PRINT“FILE SAVE COMPLETE — “; NAMES: PRINT 
RETURN 
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JOYSTICK =--- 
This program will run on any machine with joysticks. 


is a demonstration of the programming and operatio 


19 REM POM NAME = JOYSTK 

ZO REM TESTS 2 JOYSTICKS SIMULTANEOUSLY ! 

34 REM PROGRAMMED BY L. KREBS ON 92/G1/793 

3i REM 

32 REM 

33 REM 

46 DIM K(20),P8C010) 

SO FOR I=1 TO 1@ :REM INITIALIZE ARRAYS 

64 READ PS$(T) 

73 NEXT I 

84 READ Q$(1),RS$(1) <REM GET ACTION MSGS + PLAYER MSGS 
96 READ Q%(2),RS(2) 

S92 FOR I=1 TO 18 <:REM GET DECODE COMPARE VALUES 
94 READ KCI) 

36 NEXT I 

37 Y1=S@ 


168 POKE 2073.96 :REM DISABLE CTRL-C 

116 POKE S7086,128 -:REM STROBE PLAYER "A". ROW? 
12G AR=PEEK(S7’988) AND 31 <:REM USE ONLY BITS G-4 
124 POKE S70@88,16 :REM STROBE PLAYER "5B", ROW 4 


126 BB= 
123 Z=9 


PEEK(S7388) AND 246 <:REM USE ONLY BITS 3-7 


130 A=AA AND 3@ :REM REMOVE ACTION KEY ON BIT @ 


i3S LA= 
A3s x=1 


1 :REM ACTION KEY IS BIT @ 
7REM COMPARE VALUES IN K(1) - KCQ) 


140 GOSUBi1@0@ :REM DO PLAYER *A“ 
1SG@ AL=Ci :REM SAVE PLAYER “A* POSITION 
168 AZ=C2 :REM SAVE PLAYER ACTION KEY STATUS 


136 AR= 


BB 


L9G A=AA AND 120 :REM REMOVE ACTION KEY ON BIT 7 
2@6 LA"12B8 :REM ACTION KEY IS BiT 7 


203 X=1 


@ :REM COMPARE VALUES IN KC16) - KC18) 


219 GOSUB 1806 :REM DO PLAYER “°B" 
226 Biscl 
236 Be=C2 


2S IF 
Z2u5. iF 
260 IF 
mew oF 


AL<>YL THEN Z=1 
A2< >Y2 THEN Z=1 
B2<>Z2 THEN Z=1 
B1<>Z1l THEN Z#=1 


276 YL=AL: Y2=AZ 
26@ Z1l=BiL: Z2=B2 


296 IF 


3S2@ PRI 


Z2=1 THEN 358 


- 295 GOTG 40@ :REM IF NO CHANGE, THEN DON’ T PRINT 


NT R$C1),P$CAL), QSCA2Z) 


360 PRINT RS$(2),PSCE1),Q8¢ B23 


365 PRI 


NT “PRESS *“R’ TO ABORT" 


aro. Peas.” 
494 POKE S7888.2 :REM PRESS “A” TO ABORT 


42@ IF 


PEEK( 57688 )=64 THEN 39@G 


444 GOTO 140 :REM GO DO EVERYTHING AGAIN ! 


$43 FRI 


NT “AEBORT" 


31@ RUN" BEXEC# 
160@ REM SUBTROUTINE TO CHECK A JOY STICK 


1616 1 


=19@ :REM ASSUME ERROR UNLESS CHANGED 


1820 FOR Lt=1 TO 9 

i@2G Y=xX+i-1 

1646 IF A=KCY) THEN cl=I 

i1US0 NEXT I 

1119 C2=1 :REM ASSUME ACTION NOT PRESSED 

1126 IFCAA AND LAD <> @ THEN C2=Z2 :REM CHECK ACTION KEY 


The 


progam 


n of the joysticks. 


1120 RETURN 
1$38 REM 

1995 REM 

2@Q@ REM POSITIONS AVAILABLE 

26G1 REM NOTE: POSITION °Z" IS THE ERROR POSITION 
2018 DATA A,B,C,D,E,F,6,H,1,Z 

20820 DATA “NORMAL",’ A’ POSITION = 

20390 DATA * ACTION *,’B’ POSITION = 

2048 REM PLAYER "A" DECODE A-I 

26S DATA 16,28,4.12,8,18,2,18,@ 

2850 REM PLAYER "B* DECODE A-I 

268% DATA 32,48, 16,89,64,72,8, 48,2 

3008 END 


SET TIME OF DAY ---- 
; This program will run on all machines wi 


ies. s updated time every second. 
eeee eee eeinea eee ; internal clock hardware. 


operating system is needed to set up 


1Q@ REM SET TIME OF DAY PROGRAM 

2@ REM 

390 PRINT: INPUT "TIME (CH,M,S) “ss H,M,S 

46 T = 9480 

S@ POKE T,H: POKE T+l,M: POKE T+2,S 

66 REM 

18@ REM DISPLAY TIME OF DAY & TRIP TIMER IF ON 
115 REM 

126 T = 948d 

l2z © = 224 

130 H = PEEKCT): M = PEEKCT4+13: S = PEEK(CT+2) 
134 IF PEEK(C-1) = @ GOTO 146 

136 HT= PEEK(C): MT= PEEK(C+1): ST= PEEKCC+2) 
138 PRINT HT; *:"3MT3": "3ST, 

146 PRINT H;°:"3M3"°:°sS 

156 IF PEEK(T+2) = S GOTO 158 

168 GOTO 130 

17@ REM 

20G REM TURN TRIP TIMER ON 

2iG@ REM 

229 © = 224 

220 POKE C,@: POKE C+l1,93: POKE C+2,5 

240 POKE C-1,1L 

2s8 GOTO 1640 

264 REM 

30 REM ACTIVATE PIA EVENT INPUTS 

3if@ REM 

324 REM SETUP "STATE OF INTEREST" BITS 

3323 POKE 9392.254: REM PIA 1 A, LOOK FOR BIT G@ = G 
349 POKE 9396,2S53: REM PIA 2 A, LOOK FOR BIT 1 = @ 
3S8 POKE 9340@,251: REM PIA 3 A, LOOK FOR BIT 2 = @ 
363 REM SETUP MASKS 

379 POKE 236.1: REM PIA 1A, BIT @2 


369 POKE 234,2: REM PIA 2A, BIT 1 
390 PORE 2396.4: (KEM PIA @ A, BIT < 
$09 EM PERMIT °“RTMON’ TO RUN 
419 POKE 22z,1 

42@ END 


th graphics and real time 


OS-65D V3.1 HC 


si 
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DIGITAL CLOCK ---- 


This program will run on machines with real time ee ahs 
aphics. It is a digital clock updating time every minute. e clock 
ard 7 : been set. OS-65D V3.1 HC 


will appear on the screen after time has 


operating system is needed to run the internal time hardware. 


do wo 


QO G) to iv 


46 


9i79 


. IFCS=" 


DIMZ(3,1)9,6(03,3),C(69,3,3):M=1: POKE2@73, 96: FORI=@T03: READZ( 1,1): NEXT 
FORT=8T03: FORJ=GTOS: READGCI,JI>:NEXTI,1 

FORT=8T09: FORJ=G@T03: FORK=@T03: READC(I,I,KI:NEXTK,I.1 

FORI=1T023@: PRINT: NEXT: T=948@: GOSUBS@08G: FORI=1T03G: PRINT: NEXT 
GOSUBZHGE: COTOSS 


HO=PEEKC T >: MG=PEEK‘ T+1 3: SG=PEEK( T+2 ) 
C$=" ALM. "2: TFHOOLZTHENHG=HG- 12: CH=" 
IFHG=12THENCS=" P.M." 
IFHO=@THENHG=12 

IF M@=M1 THENPOKES4@53, 32: FORT=1T016G: NEXT: POKES498S3, 42: SOTCZ82m 
Mil=MG 

SOSUBSB49 

iFCS=" A.M. “ANDPEEK( 54123 J=S2THENPOKES 4123, 146 

FM. “ANDPEEK( 54123 J=146THENPOKES4123, 32 
IFPEEK( T+2 )< DSG@THENRETURN 

GOTO2EG23 

c=4 

203, 0)=iNTCHO 16): 202, 8 I=HO-2(3,G)*1G 

201, 9)=INTCMG/1@0): 206, @I=MB-2Z01,8)*1G 

IF QS=@7THENS16G 

TF 2=4THENRETURN 

IF Z2=3ANDZ(¢ 3, @ )=@THENPOKES 4036, 32: POKES4100, 32: RETURN 
FORI=6703: FORJ=4TO3: POKEZ(Z,1)+601,3),C0202Z,0)3,1, 53 

NEXTJ,1: IF 202, @ 3=Q@THENZ=Z+1: GOTOSG3G 

IF ZC3, @ J=@ANDPEEK( 54108 0< OSZTHENZ=3: GOTOSGU4G 

RETURN . 

POKES 4642, 174: POKES41@66, 174: FORZ=@TO3 

IF Z=3ANDZ( 3, @ }=G@THENPOKES4@36 , 32: POKES4160, 32: GOTOS13G 
FORT=6T03: FORJ=8T03: POKEZ(Z,1)4+6(1,3),C0Z6Z.0),1,53 

NEXTI,1,2 

QS=1:L=54056: POKEL-63, 128: POKEL-62Z, 128: POKEL, 147 

POKEL+1, 144: POKEL+2, 144: POKEL+3, 146: POKEL+64, 147 

IrC$=" A.M. “THENPOKEL+67, 146 

L=54@69: POKEL, 147: POKEL+1, 196: POKEL+2, 189: POKEL+3, 146 
POKEL+64, 147: POKEL+67, 146: RETURN 


P.iM.° 


10Z2G 
14G1G 
149626 
16025 
12030 
1AG4S 
12658 
~3362 
ige@7a 
1G8e6 
19696 
1G@1ag 
290G0 
35818 
s@Ceo 
S803 
SUGBAG 


DATAS4@47 , 54043,54838 , 54034, -64, -63, -62, -61,9,1,2,3,64,65 
DATASE, 67,128,129, 136,131 

DATASZ, 126, 128, 32, 147, 32, 32, 145, 147,32, 32,146, 32,135, 155, 32 
DATASZ, 32,32, 32,32,32, 148,32,32, 32, 146,352,352, 3253 32552 
DATASZ, 129, 128, 32,332,144, 144,146,147, 32,552,352, 352,135,135, 32 
DATASZ, 128,128,32, 32, 144, 144, 146, 32, 32,32, 146,32,135, 135, 32 
UATAS?, 32,32,352, 147, 144,144,146, 32, 32, 32,146, 32, 32.32, Sz 
DATASZ, 125, 128,32, 147,144, 144,32, 32, 32, 32, 146,352,135, 135,32 
DATASZ, 128,128, 32, 147,144, 144,32,147,32, 32,146. 32,135,135, 32 
DAVRS2, 1206j126, 32, 96) 36) 36 9196,3925 367325155592 ,592 532, 3e 
DATAS2, 1259, 128,92, 140, 144, 144,196,147 4 325 325 £46.32, 155. 235;35 
DATAS2, 128,128, 32, 197,144,144, 196,34, 32, 32,145, 32, 195, 2.55552 
INPUT"WHAT IS THE TIME CH,M,5)°SH,M,S 

TFH« LORHOLZORH< SINT ( oH OGOTOSGARG 
ir M< GORM OSSORM< SINT CM IGOTO3ZBORE 
LF S< @ORS -SSORSS FINTCS IGOTO3906S 
PRINT > PRINTH; “HOURS, *M°MINUTES, 
SPU LS THAT Ai, OR FVM. SS 
IFLEF (SC 7%, Lo="P* THENH=Htle 

IF Hele THONHELS 

oP Lennie 134 75 


{ 
S$T=3420: POKEST,H:F 


AND SSE CONLS 2 FRIMNT 


FLASHER ---- 

This program runs on all graphics machines except the CiP. This 
BASIC program loads a machine level program into memory by the use of 
DATA statements and then runs it. The program flashes random graphics 
and color (if machine has color hardware) on the screen. 


1 FL=PEEK(S7@88 > : GCOSUBE8AGG 
2 POKE29073, 96: POKES7@88, 1 


18 
28 


78 


PRINT°TO ABORT PROGRAM, PRESS °CTRL .° 
PRINT°PRESS ANYTHING TO BEGIN?! °;: INPUTYS 
BE=#INTCRNDC 1 #9 +268: LE@INT(C RNDC 1 38C 216-BE ) +1 
CH= INTC RNDC i #128 +128: IFRNDC 1)>. 4STHENBE=BE +16 
POKE 16336, BE: POKE16337, LE: POKE16338, CH 

IF PEEK( S788 )< >F_LGOTO7@ 
POKES6832,S: X*USR( X): GOTO3G 

POKES6832, 1: END 


68@¢@ POKESSSS, 211: POKES9S6,63 

60010 FORI=16339T016372: READA : 

68628 POKEI,A:NEXT: RETURN 

62038 DATAL72, 289,63, 174, 218,63, 173, 208,63, 141,225,63 
60040 DATAL42,9, 208, 173, 224,63, 24,105, 1,141, 224,63, 144 
6@@5@ DATAZ42, 238, 225,63, 136, 152, 208, 235,96 


THEME --<-- 

This short program plays the Star Wars theme through the tone 
generator. The tone generator is the only special hardware that is 
needed to run the program. 


1 POKESE832, 7 3 

1@ DEFFNACC)=¢49152/(2"(C/12)4228)) 

20 FORJ=1TO2: FORI=1T048 

30 REAROA : POKES? 889, FNACAD 

49 NEXTI: RESTORE : NEXTJ 

38 ENO 

108 OATAL L1L3.3.3533 6 5,3,13,13.15 

110 DATAG, & & & 3.3, & 5 3 13,13, 13,3, % 3 8 8 8 

128 DATAG, 5, 6. 3, 3, 3, 3, 3, 3, 1088, 1600, 1080, 1080, 1888, Le68 


KEYS ---- 

This program requires DAC hardware to operate. It is an assembler 
program and must be typed in through the assembler editor, assembled 
to memory by typing A3, and then started by typing "!GO 317E". After 
the program is started the keyboard becomes musical, sending various 
sounds through the DAC output. Note, there is no exit for this 
program. 


22 S=S317E 

2G LDA #$FF 

3a STA SDF OO 

4OSTART LDA SDFOG 

So TAX 

6SLOOP ADC $20,% 

78 STA SDFQ.L 

8a DEX 43 
99 BNE LOOP 
100 STA LOOP+1 


i110 JMP START 


PLANE BANNER ---- 
This program can be run on any graphics machine except the 


The program is a demonstration of animation. If the program is to 


run on a color system, please refer to USR(X) for color backgrounds. 
NOTE: On non disk based systems you must delete all disk calls 
(DISK!"CA 4FD0=36,1"). 
1S REM** PLANE BANNER 8660 41@ POKEI,237 
2@ DIMAC 25) 420 POKEI+D, 10 
2S FORT=“LT020: READAC I): NEXT 4390 POKEI+D-S,7 
38 PRINT: PRINT: PRINT: PRINT 446 GOSUB1900 
3&5 PRINT“ 0.S.I. COMPUTERS" 445 POKEI-21,32 
40 FORT=#1T022: PRINT: NEXT 4465 POKEI+D-23,12 
4S POKES6832,6 4S@ FORJ=1TOS@: NEXT 
SO D=#49096: TS-12: GR=6 469 POKET,32 
68 DISK! *CA 4FDG236, 1°: POKE2Z0433, TS: X#USR(X) 470 POKEI+D, 12 
8@ FORTI=S4976T0S5S200 S60 NEXT 
9@ POKETI+D,GR: NEXT 689 GOTO28Q0 
$4 K=S37890 10098 FORV=7T022 
9S K=K+D:GOSUB11289 1010 POKEI-V,ACV) 
106 FORT =S491S5TOS4S9S37STEPZ 16206 NEXT 
11@ POKEI+D,@:POKETI,15S 1938 RETURN 
128 NEXT 1100 FORI=1TO16 
230 FORT =S4464T0S4494 1116 POKEK+I,I 
218 POKETI, 237 1120 NEXT: RETURN 
21S POKEI+D,2 2830 FORI=1T030G: NEXT 
226 FORJ=1TOS@: NEXT 2066S FORT =S4915T0S 4937: POKEI , 32: NEXT 
230 POKEI,32 Z41G X=USR(™) 
240 POKET+D, 12 2100 END 
2S@ NEXT S@80@ DATA32,32,32,32,32,32 
300 FORI=S39S82TOS39S2STEP-1 5186 DATAG3,67,73,72,88,65 
318 POKEI,239 S200 DATAS2,71,32,82,79, 76, 79,67 
320 FORJ=1TOS@: NEXT ; 
339 POKETI,32 
340 NEXT 
460 FORT =S42908T0S4238 
AC ---- 
This program will run on any machine with CA-12 remote AC control 


13 
29 
30 


interface and OS-65D V3.1 HC operating system. The program needs an AC 
driver in memory before the program is typed into the computer.(See 
color and AC manual.) 


REM AC CONTROL PROGRAM 
REM (WITH EMBEDDED AC CONTROL DRIVER) 

REM SETUP VECTOR TO ‘ACTL’ CODE 

POKE 548,127: POKE 549,50: REM 80224 = $7F, $32 
REM 

REM PRESET STATUS TO 64 CHAR DISPLAY 

POKE 249,1: REM $F9 

REM 

REM OPERATOR INTERFACE FOR AC CONTROL 


1@@ INPUT ‘DEVICE, COMMAND NUMBER "; N, M 

112 ACTL N,M: GOTO 108 

120 REM 

130 REM MINI LIGHT SHOW 

149 NN=GS: BR=66: LO=G7: REM ON: BRIGHT: LIGHTS ON 
150 FF=68: DI=69: AF=7@: REM OFF: DIM: ALL OFF 
200 ACTL 1,2,3,12 

219 ACTL NN 

220 ACTL 1,FF,2,FF,3,FF,12,FF 

23@ ACTL 12,NN,3,NN,2,NN,1,NN 

24Q ACTL 1,2,3,12 

250 FOR I=1 TO 10 

z6Q ACTL DI 

27@ NEXT I 


a4 


CIP. 


MACHINE CODE 


KALEIDOSCOPE 


This program will only run on color systems. It is 


program and must be typed in through the assembler 
to memory by typing A3, 


1@ 
<8 
30 
4G 
50 
58 
70 
88 
92 
180; 


tS a 
12 
132 


149 

158 

162 
L7QLOOP 
1SOCHAR 
130 
ZBCCOLO 
21G 

~26 

238 

240 

23d 

ZEG 

278 
28G; 
ZS@START 
380 

310 

320 

336 
3439; 
SSSsCOL 
266 
3STBLOOP1 
336 

336 

402 

4+i¢ 
42OCONT 
432 

446 

450 
466; 
470 

436 

4360 

52G 

319 


S2e) 3 


i of in ot 


GQ) ul 4. & 
oqo ne 


; KALEIDOSCOPE 
; DAVID E. TEWKSBARY 


*=$4000 
TEMP =$3F DG 
DUMM=$3F DS 
COUNT #$3F EA 
COUNT2*$3FEB 
CH=$3FEC 
NUMB=$3F ED 


LDA #$DS 
STA CHAR+2 
LDA #$&2 
STA COLO0+2 
LDX #2 

LDY #68 

LDA #32 

STA $DA00, xX 
LDA #8 

STA SE0O0,xX 
INX 

BNE LOOP 
INC CHAR+2 
INC COLO+2 
DEY 

BNE LOOP 
RTS 


LOA #4 
STA S$DEGO 
JSR CLEAR 
LDA #96 
STA 2073 


LOX #1 
LDA #$D4 
STR TEMP,X 


CPX #5 
BNE CONT 
LDA #$€ 
CPX #9 
BNE LOOPL 
LDA #6 
STA COUNT 


LDA #16 
STR SDFQQ 
LDA SDFGS 
CMP #464 
BNE COLADD 


JSR CLEAR 
LDA #1 
STA $SDESS 


Started by typing 


S70; 
S80COLADD 
539 
E68 
51G 
520; 
632 
548 
650; 
669 
676 
6ee 
$39; 
70g 
71G 
728 
730; 
749 
TSO 
780; 
778 
786 
72G 
SOG; 
$198 
826 
836 
346; 
SSOBROW 
66a 
87GLOOP2 
380 
63a 
939 
316 
920 
338 
244 
352 
5Sa 
370; 
im] 2) 
9398 
L12BQRANDOM 
1Wia@ 
1820 
10323 
1346 
1a3@8; 


an 


editor, 


assembler 
assembled 


"!GO 4025". 
Depressing the "E" will return you to the assembler editor. 


INC 
L CY 
ot 
BEG 


LDA 
STA 


LOX 
LDY 
JSR 


LDX 
LDY 
JSR 


INX 


JSR 


LDX 
LDY 
JSR 


LOX 
LDY 
LDA 
Sta 
INY 
STA 
LN‘¢ 
INX 
CPX 
BNE 
LBY 


sy 


LDY 
LDA 
ADC 
DEY 
BNE 
ORA 
STR 


COUNT 
COUNT 
#3 
BCOL 


#63 
NUMB 


#1 
#5 
SUB 


#3 
#7 
ADD 


i #65 


NUMB 


SUB 


#2 
#6 
ADD 


#1 
#1 
TEMP, X 
DUMM, Y 


DUMM, Y 


#9 
LOOF2 
¥2 
COUNT2 


#5 
CH 
DUMM, Y 


RANDOM 


#128 
CH 


COUNT? 


, GUST 


COUNT 
OKAY 


' COLADD 45 


ABS 


MUMB 


1153; 


14a 
139 LDX #9 1419 
L172 LDY #17 1420; 
i189 JSR SUB 14390 
1196; 1449 
1299 INX L450 
1218 INY 1468: 
1220 JSR ADD 1472 
1230; 1489 
1240 LDX #13 1.99 
1259 LDY #21 L2ae; 
12628 JSR ADD iS LOBGCNER 
1279; is2a 
128a INX LSSOTIGHT2 
1230 INY 1542 
1380 JSR SUB 1588 
1310; 1588 
132@ LDA #63 LSTQ@MOVEL 
1330 STA NUMB 158e 
134@; isso 
1358 LOX #11 1689 
1368 LDY #19 1616 
1270 JSR SUB LG2QMOVE2 
1380; 1630 
1399 INX 1646 


RANDOM SQUARE --<-- 


This is a short graphics demonstration program. 
compatible with all graphics machines except the CIP. 
is used, then the program "USR(X) for color backgrounds" 
be used. If the computer system does not have a disk drive, 
disk call ( DISK!I"CA 4FD0=36,1 ) should be deleted from 
USR(X) for color backgrounds. 


NOTE: For more detail see 


10 REM ## PAUL A. JOVIAK a 
1Z REM #* RANDOM SQUARE 56 
1S POKES6832,6:PRINT: PRINT: PRINT: PRINT 


INY 
JSR 


LDX 
LDY 
JSR 


TNX 
INY 
JSR 


LDA 
BPL 
LDA 
BMI 
LDY 
LDX 
LOR 
STA 
Cie 
ACC 
STA 
LDA 
STA 
STA 


17 PRINT* OHIO SCIENTIFIC: ° 

28 PRINT:PRINT” 

23 PRINT” AND* 

2S PRINT’ INVERTED VIDEO" 


3@ FORT=1T020: PRINT: NEXT 
4@ DISK!*CA 4FD@=36, 1° 


S@ D=4096: BC 1 )=1: BC 2)=-64: BC 3)=-1: BC 4)=64 


80 FORPS=1TOS 

30 FORL=1T02:H=58318 

160 FORT=1TOLISTEP2 

140 HeH+63: FORK=1T04: Z=H 

144 IFK=2THENZ=H+I 

14S IFK=3THENZ=H+I+I#-64 

146 IFK=4THENZ=“H+I 4-64 

150 FORJ=O@TOI-1 . 

160 TS#INT( LE*RNDCZ)) 

170 RS=INT( 2S5*@RNDC TS) ) 

20@ POKEZ+J*#BCK),TS 

226 F=PEEK(S7@68 ): IFF< >LTHENSQQ . 
2S8 IFL=2THENPOKEZ+J*BC K )-D, 32: GOTOSae 
306 POKEZ+J*B(K)-D,RS 

SOG NEXTI,K,I,L 

56@ POKEZ0433, TS: X=USR(X) 

6S9 NEXTPS 

3608 END 


4G 


ADD 


#1S 
#23 
ADD 


SUB 


SDEGA 
DONER 
SDE3G 
TIGHTS 
41 

*3 
GUMM, Y 
POKE+2 


#16 
POKEZ+2 
DUMM, xX 
POKE+! 
POKEZ+i 


COLOR GRAPHICS" 


1550 
1560 
1S? 


L{6S0PO0KE2 
LESOPOKE 


1739 
17i2 
i72cO 
i7sd; 
174@ADD 
1753 
760 
1778 
1730 
1736 


LS9GRIGHT 


1318; 
LSZ26SUB 
i33@ 
1349 
i2se 
136G 
1879 


INX 

INY 

UDA CH 

STA $2000 
STA $5706 
CLPyY #3 

BNE MOVE1L 
JMP ROWADD 


LDA #$3FD0,Y 
CLC 

ADC NUMB 
STA $3FD0,Y 
BCC RIGHT 
INC $3FDG,x 
RTS 


LDA $3FD0,Y 
SEC 

SBC NUMB 
STA $3FD0,Y 
BCS RIGHT2 
DEC S$3FDO0,x% 


18S8GRIGHT2 RTS 


The 


should 
then 
the 


program 
If a color unit 


program. 


BLACKJACK ---~ 
This program will run on any machine with a Votrax unit. Note, 


this program requires a votrax driver (see Votrax user's manual). 


DIMC (423. 49: FORI=1 T0398: PRINT: NEXT 

BS="PAL PAL THY UH? UHS UHS PA@ DE L ER PAL 

PRINT"2 To G&T ANOTHER caARD": PRINT“2 To covet_e yvourR ser" 
PRINT"S ro sTayr" 

S$=" OF “:$$C1>="HEARTS": S$(2)="DIANCNDS" 
S$(3>="CLUBS": $$C45=2"SPADES"“ 

PRINT: INPUT"“NumserR of PLAYERS €1~-S)":N 

ITFN<KOINT CNSORNCLORNSSGOTOSe 

FORIT=1 7013: FORJ=1704: CCL, J3=6: NEXTJ., I 

FORI=i TON+1: FORJ=1T05: PCCI, J>=9: NEXT J: SWCLIS32#9: NEXTL 
PRINT "EnTrerR": :PRINTSS, “I N u ER PAL" 

PRINT" vour":: PRINT #5. °Y B PAL” 

PRINT" pers: “: : PRINT#S. "6 EH T S PA* 

FORTI=1 T0389: NEXT 

PRINT: ee FORI=i TON: PRINT: PRINT*PLAYER"! 

PRINT#S, “P A ER PAL“: PRINTI: : T=I+2G: A$=""*: GOSUBLS71 


@ INPUTWCY): TEW CT >BANDWCT><581G070119 


161 PRINT: PRINT"GET": parece "G EHL T PRE” 

4@2 PRINT" SERIOUS! !";:PRINT#S. "S ER I AHe S* | 

1485 PRINT: PRINT: PRINTS. “PAL PAL PAL": PRINT“PLaver": : GOTOS4 

1186 NEXT: FORI=1 704: PRINT: NEXT 

42@ FORQ=1TON: FORI1=17T02: GOSUB110@: PC<Q, I1>=IC: GOSUB1980 

138 NEXTI1: PRINT 

1490 GOSUB129@: IFT= ene hens Tr aes DAL ie DHClBe 

486 IFILV=3STHENT=26+Q: AS="PAL L A ER PAL": GOSUB1E71 

187 IFLTA=STHENGOSUBL299: cOSsuBi450 

190 PRINT"PLAverR"Q@: : INPUTC: IFC<CLORCSSORCKCOINT CC3sG0TO0198 

194 PRINT 

260 IFC=10RC=3G0TO232 

2e0@ WCQ =WCQ)*2: PRINTS#S, "DBD BD UHL UHL B&B L PR Y UR PA B EH T PAG" 
236 IFC=1G0T0236 

235 IFC=STHENPRINT#S."S T A AL Y Yi PRA”: GOTO38S 

236 PRINT#S. "P LR ER PAS TAK S PAG W UHS UHe UHe N N PRO" 

24@ GOSUB116@: PC¢<Q, I1>=IC: GOSUBLGAG 

26@ GOSUB1299: GOSUB1 45a: ete aoe a ae one peeve 

265 IFIL=STHENSWCQ0=1: PRINTS, “PARAL Ai PAL I ER PRL": GOTO38a 
278 I1=I1+1: PRINT: GOTO198 

380 FORI=1 T0369: NEXT: PRINT: NEXTQ 

382 DO=0: DW=a 

303 FORI1=17T02: GOSUB11@9: PC*Q@, I13=IC: GOSUB1EG@: NEXT 

304 GOSUB1266: IF T=21 THENGOSUB13@0S: SWC Q)=1: GOTO78S 

366 Peeks Ton Coen ooe. <i GOSUB1458: Ti=T 

387 FORQ=1 : GO L209: IFT<=TLORTS21ANOSW CQ =6THENDO=DO+W6Q) : GOTOS8S 
368 TFSWC@) SO THENDU=DUeWC a> 

3O9 NEXTQ: IFIL=6THENSWCN+1921: GOTO78S 

346 IFDWOGANDT1<15GOTOS25 

346 IFN=LANDOW<C>O6COTOS2S 


328 IFDOSDWORTI>SISTHENPRINT#S, BS$+" STAY S 


Ag": GOTO69@ 


p 
325 PRINT#S. BS+" T AK S PAG W UHS UHe UHe N N PAO" 

326 DO=2: DW=G 

339 GOSUB11@6: PC¢(Q, I1>=IC: GOSUB1GS@ 

340 GOSUB129@: GOSUB1I45@: IF T<22THENI1=11+1: T7127: GOTO387 
35a al 


78a eS ae ATS PRINT: NEXT 

710 FORI=1LTON: HCD SHC TI-WCI): NEXT 

7eOo IFSWCT>=8@GO0TO726 

fei PRINT#S., "H AH PAL H AH PRL" 

7es PRINT"THE HOUSE WINS CAGAIN) 11": GOTO7SS 
726 PRINT"“ConGrRADULATIONS TO: ": PRINT 

738 S=@: FORI=1TON: IFSWCI>=@GOTO074 48 

735 eT Praver"IT: HC LI=HC LO +Wc Doe: Sat 


75@ Q=N+1: GOSUB1L2ESS: PT=T 

760 FORQ=1TON: GOSUBL2EGG: IFPT<C22ANDT<CPT+1G0TO?7 7s 

7614 IFTS210RSWC(Q5=1G0TO?"7E 

765 PRINT" Praver"QG: HC QSHCQS4W CQ *2: Sat 

778 NEXT: IFS=@THENPRINT“ THE HOUSE! “: PRINT#S., “H AH PAL H AH PAL" 
79@ PRINT: PRINT: PRINT 

8606 Q=N+i: Sony CoS PRINT" THe House HAD"T: PRINT: PRINT 

$810 FORQ=#i1 TON: GOSUB1i2e6¢a 

820 PRINT "PLOVER" Oe "Score"T, *Waaer"WCQ), “HoLornas"HCa>: NEXT 
8390 PRINT: PRINT: PRINT "Oo": : PRINT#S, "D D U PAG" 47 
$331 PRINT" vou": : PRINT#S, "¥ YU PAS" 

832 PRINT“ WANT": : PRINT#S, “W AHL EHS N T PRO” 

833 PRINT“ To": : PRINT#S. "T OO O41 PAO" 

834 PRINT” contxnNnuve": : PRINT#S. "K UH N PR TIN Y YU" 

38335 INPUTYS: IFLEFTSCY$, 15="¥"GOTO7a 


48 


PRINT: PRINT “You 


i. Risa sb aap So U PAO" 
PRINT"“may ": RG“ 


: PRIN T#S, *M A 


PRINT"pay "::PRINT#S, "P A y PAG" 
PRINT"vour “::PRINT#5. "Y UR R PAS" 
PRINT “oesBtTs "i: PRINT@S, "D EX | S$ S PAL" 
PRINT“ar “:: : PRINT #S. “AE T T PRO" 
PRINT"THe “:: PRINT#S. "TH UH UH1 PAG" 
PRINT"FRONT "::PRINT#S, "F R AHL N T PAB" 
PRINT"“oesk": : PRINT#S,. "DBD EH S K PAL PAL" 
RINT“. ercgaAsa!!": PRINT#S, "P L E S PAO" 


Pp 
RUN" BEXEC* 


@ PRINTCS$: S$: S$C IS): RETURN 


ICSINT CRNDC13*13941: ISSINT CRNDC19*4941 
IFCCIC, I$>=1G0T01188 
C¢<Ic, IS>=1: CF=MIDSCSTRSCIC), 2): IFIC=1THENCS="ACE" 
IFIC#11THENCS=" JACK" 
IFIC=12THENCS="QUEEN" 
IFIC=13THENCS="KING" 
IFICS1I6THENIC=18 
Paar 
IC=@: T=8: FORI=1 TOS: IFPC¢CQ, IS=LTHENIC=IC+1 
T= TePCCQ, T Id: NEXT 
IFIC=GTHENRETURN 
FORIT=1TOIC: TF T+19>21 THENRETURN 
T=1T+14: NEXT: RETURN 
PRINT#5, "B L AH1 E2 K PA® J J EH3 AHL K PRO" 
PRINT: PRINT“BLACKJACK! !“: PRINT: RETURN 
PRINT#S. "B AHL S T EH B®: PRINT: PRINT“BUSTED! !": PRINT: RETURN 
AS="SH SH O Ii NG PAL 
ONT~-1G0T01473@, 1488, 14990, 1502, 1510, 1529. 1530, 1549. 15359 
ONT -19860T01568, 1578, 1580. 1599, 1608, 1619. 1629, 16398, 1649 
ONT-19G0T01679@. 1679, 1679, 1670, 1670, 1679, 1678, 1670, 1678, 1670 
ONT-28G0T01676, 1779, 1788. 1798 
RS=ASt+"T IU IU U1 U1 PAL": GOTO1880 
AS=AS+"TH TH R : GOTO1806 
AS=AS+"F O1 O41 ooure pare 
AS=AS$+"F AHe AHL I3 YY ¥ PALS: GOTO0i8a¢e 
AS=AS+"S I IS PAS : GOTO1888 
AS=ASt+"S EHS ¥ EHe : GOTO01882 
AS=AS$+"A2 Re A 
AS=AS+"N AHL EHe Y_N 
AS=AS$+"T AEL EHX N PAA": s 
AS=AS+"UHS L EHL V EHe : GOTO188¢3 
AS=AS+"T W EH LY PA": GOTO1800 
AS=AS+"TH _ TE N PA®: eS ops 
AS=AS+"F O41 N PA": GOTO1889 
ASZAS+"F TI ve TE N PA": 386 
AS=AS+"S I1 K S GOT01888 

ss ibe GOT0i88e 


AS=AS+"S EHL Y 
AS=AS+"AL AY YL T PA": GOTO1L888 
N PAL": GOTO1882 


AS=AS+"N AHe I3 ¥ 
RS=AS$+"T W EHL N T E PAG 
SC GAoee 1 Gas tie Ede cen aT enTeGoae eee 
AS=AS+" UHS UHe UHe N PAL T0188 
AS=AS+" UL PAL": COTOLsaB 
RAS=AS+" PAL": GOTO018ee 
AS=AS+" ae knat 
RS=AS+" ¥ PAL": GOTO1886 
RS=AS+" PAL": GOT018a88 
AS=AS+" 2eN N PAL": GOTOL88¢@ 
AS=AS+" T PAL": GOTO188¢ 
AS=AS+" N A N PAL“: GOTO18e@e 
: GOTO01886 
WW UH3 UH@ UH2 N N PAL": 


PAS “: GOTO01478 


GOT018a@e 
AS=AS+"TH ER T E 

PRINT#S, AS: RETURN 
IFC#=10RC=3G60T02390 


Telecom Test 


This program should be used with C2-4P's and C2-8P's with the 


universal te 


the versatility of this comprehenisve interface board. 


lephone interface option. (CA-15) to test and demonstrate 


4 REM TELCOM TEST PROGRAM 

10 OIMNC25), NS(16),0¢16) 

S@ DATA 238. 222, 190. 237. 224, 139, 235, 249, 187, 245 
S2 OATA 2341, 183. 126, 125, 123, 119 

3S OATA 1.2.3.4, 5,6, 7,3, 3,98, *, #,A,8,C,.0 

36 FORI@1T016 : RERONC I> :NEXTI 

S? FORI #1 T0416 : REAONS< I> : NEXTI 


182 
185 
119 
128 
138 
435 
148 
ié2 
144 
148 
146 
147 
148 
149 
158 
220 
210 
220 
1989 
1819 
1828 
1839 
18498 
1838 
1968 
1078 
1830 
1990 
1100 
1219 
4435 
1128 


A@63488 : FORI*ATOR+6STEP2: POKEI. 255: NEXTI 

FORT #A+1TOR+7STEP2 : POKEI, 0: NEXTI 

DATR 63. 15. 249, 253 

FOR I=ATOR+7STEP2: READS :POKE I. 8:NEXTI 
FORT =R+1TOR+7STEP2 : POKEI. 6: NEXTI : POKES3494, 255 
POKE 623496, 3:POKE 63496, 145:REM ACIA 

PRINT“2 = ORIGINATE CALL PULSE OIALER 

PRINT“2 = ORIGINATE CALL TONE OIALER 

PRINT"3 = HANG UP* 

PRINT“4 = OECOOE TONE INPUTS” 

PRINT"S # ENO PROGRAM & HANG UP“ 
PRINT“S6 # CALL MATIONAL WEATHER SERVICE" 
PRINT"? = CALL TIME SERVICE” 
PRINT“S = RUTO ANSWER MODE" 
PRINT"S = FORCE OFF HOOK AND ‘YOUR FUNCTION“ 
INPUT “COMMAND “3 C 
ON C GOTO 1894. 1889. 2080, 3009, 3999, S860. 5659, 6680, 6082 
GOTO 203 

REM ORIGINATE 

INPUT“NUMBER PLEASE”; AS 

LeLENCAS) :Est:POKE 63499, 3 

FORJ#1 TOL 

FOR! #1 T0165 : IFMIDSCRS, J, LI BNSC ID THEND<K JOMNC ID - E89 
NEXTI: IF Est THEN GOTO 1012 

Et, : NEXTS 

REM # IS NOW IN 0¢@) = 04145) —- # OF DIGITS INL 
POKE 63490, 1:REM OFF HOOK 

IF Cat THEN POKE 6348S, 39:REM PULSE OIAL 

IF Cae THEN POKE 63488. 29:REM TONE OITAL 

REM WAIT 4 SECOND 

O=68 ; GCOSUBSNSG2 

REM SEGIN OIAL 


1438 FORI@LTOL : POKE63494, 0¢ 15 : Omi, : GOSUBSBBE : POKES3494, 2535 : Dat 


1168 
2089 
2818 
S808 
‘S859 
6088 


6112. 


6149 


9839 


GOSUSBSS20 : NEXTTI : GOTO140 

REM HANG UP PHONE 

GOSUS 39696: GOT01498 

AF2"9311212" : C2: GOT01d2e 

AS=" 4711212" :Cz2:GOT01820 

REM ANSWER MOOE 

PRINT"3 = TAPE REC. * 

PRINT°4 = MODEM RCV. “ 

PRINT’S = TONE DECOOCER* 

INPUT"YOUR INPUT FUNCTION”; R 

PRINT°@ = NO QUTPUT" 

PRINT“1L = VOTRAX OUTPUT" 

PRINT“2 = AUX OUTPUT" 

PRINT"3 = TAPE PLAYER OUTPUT" 

PRINT"4 = MODEM OUTPUT" 

PRINT"S = TONE GEN. OUTPUT” 

INPUT°OUTPUT FUNCTION"; xX 

POKE 63468, ¢ (R¥G>+XxX) 

IF COS THEN GOTO 61290 

Z2@PEEK (63483) : ZeZANO1I28: IF Z2=8 THEN 6110 

GOSUB 9089 

IF R=3 GOTO 1428 

IF Re4 THEN PRINT“ INSERT ‘YOUR MODEM PROGRAM” : GOTO146 
IF R=S GOTO 3001 

GOTO 6818 

FORT#1 TOO: WAIT S6822, 128,128: WAIT 36832, 123: NEXTT : RETURN 
GOSUB 9@89:POKE 63488, 45 

PRINT: PRINT: PRINT"PRESS ¢#>) TO EXIT THIS MOCE & HANG UP" 
Z2=PEEK (63493) :Z=ZANO123: IFZ>@ THEN S820 

GOTOSB8S 

F=PEEKC63492>) ANO 15:REM GET OATA ANO RESET FLAG 
PRINT"YOQU PRESSED “; NSCF);: IFNSCF)=“#“ THENGOSUBSO99 : GOTI149 
GOTO388S 

POKE 63490. 1:RETURN:REM LIFT HOOK 

POKE 63499, 2: RETURN 

POKE $3499, 3:ENO 


49 


50 


5 c=2 

19 L5=5@ :REM LOW WHOOP 

12 HS=i0G :8EM HIGH WHOOP 

14 $S$=2 :REM WHOOF STEP 

16 OK=192  :REM GUY MUST MOVE!!!! ON START 


Little Guy --- 


This program will run on any graphics machine except the C1P 


with color (optional tone generator). 


Using keys 1-4 you move a 


little man around the screen trying to find the door. 


e@ DEF FNRCXI*INTC ~%*RNDC SD?) 
36 INPUT’ INFUT SEED";SD 


38 


198 
1s2 
228 

/300 
400 
cag 
600 
780 
8e0 
29899 
30000 
38018 
30920 
30030 
20950 
30899 
38100 
30110 
30120 
30132 
30142 
30152 

32200 
20219 
32220 
30222 
30224 
30226 
30228 
30230 
20240 
2250 
30260 
30300 
30312 


303208 


30322 
30324 
3@326 
390328 
393232 
36349 
30358 
383598 
20400 
36410 
36420 
38422 


GUTO 18a 
33 POKE 2073,173 : 


POKE S6832,1 END 


FORL=0T03S: PRINT: NEXTL 

POKES&832, 4 

A=40396 

BL=14 

FORL =S3248T0SS295: POKEL+A, BL: NEXTL 
GOSUB3Q900:REM *#*4* MAKE A RANDOM DOOR #44 
SOSUB3@180:REM #8 MAKE A LITTLE GUY 
GOSUB310G0:REM #** LET THE USER MOVE 
END 


REM#s* RANDOM DOOR sss 
DX=FNR( 32) 

DY=FNR( 32) 
RD=53248+DYs64+Dx 
POKERD+A,C 

RETURN 

REM*** LITTLE GUY se« 
GX=FNR( 32) 

GY=FNR( 32) 
LG=53248+6Y*64+6x 

IF LG=RD THEN 30190 
POKELG, 24a 

RETURN 

REM#*e* MOVE LITTLE GUY UP(1) #« 
POKE LG, 32 

IF GY<>@ THEN 30230 
GY=31 

LG=LG+1984 

POKELG, 240 

RETURN 

GY=GY-1 

LG=L6-64 

POKELG, 242 

RETURN 

REM*e* MOVE LITTLE GUY DOWN(S) s«« 
POKE LG, 32 

IF GY<>31 THEN 30330 
Gr=2 

LG=L_G-1984 

POKE LG, 240 

RETURN 

GY=2GY+1 

LG=LG+64 

POKE LG, 240 

RETURN 

REM**s MOVE LITTLE GUY RIGHT(3) ##« 
POKE LG, 32 

IF GX<>31 THEN 30430 
GX=9 


TB4Z4 
30426 
34428 
36430 
30440 
30458 
39466 
38509 
33510 
38520 
36S22 
39524 
Ss€S26 
38S2¢e 
38536 
3054¢ 
38586 
3USEG 
30608 
33610 
36620 
3@622 
38623 
38624 
38626 
38628 
3€629 
30638 
36631 
32632 
38634 
380636 
30638 
30840 
38656 
30658 
38678 
39680 


LSO@=LG-Sl 

POKE LG,24@ 

RETURN 

GX=6K+l1 

LG=LG+l 

POKE LG, 24G 

RETURN 

REMs#s MOVE LITTLE GUY LEFT(7) ##« 
POKE LG,32 

IF GX<>G THEN 32532 
Gx=31 

LG=LG+31 

POKE LG,246 

RETURN 


GX=6X-1 


LG=LG¢6-1 

POKE LG, 240 

RETURN 

REM#*ee MOVE LITTLE GUY UP+4RIGHT( 2) 
POKELG, 32 

IF GY<>@ THEN 30636 
GY=#31 

GxX=GX+1 

LG=LG+1985 

IF GX#31 THEN 30632 
POKE LG, 2490 

RETURN 

IF GX<>31 THEN 38642 . 
GY=GY-1 

GX=0 

LG=LG-935 

POKE LG,248 

RETURN 

GX#6X+1 

GY=GY-1 

LG=LG-63 

POKE LG, 242 

RETURN 


30708 REMsss MOVE LITTLE GUY DOWN+LEFTCE) 


38719 
30728 
38722 
28724 
38726 
38727 
38728 
38722 
30738 
30731 
30732 
38734 
307365 
30738 
20740 
387502 
3875S 
38778 
RATAN 


POKE LG,32 

IF GY<>31 THEN 30730 
GY¥=0 

GA*GX- 1 

LG=LG-198S 

IF GX#@ THEN 30732 
POKE LG,249 

RETURN 

IF GX<>@ THEN 39740 
GY=GY+1 

GX#31 

LG#LG+95 

FOKE LG,.240 

RETURN 

GA#6XK- 1 

GY=GY+1 

UG*LG+63 

POKE LG, 246 

RETURN 


3686:) 
30818 
36320 
S@E2e 
30823 
36824 
28826 
3382s 
38823 
338390 
33831 
39332 
38334 
39836 
38838 
380840 
398Su0 
3885 

2337 

30388 
38900 
383193 


30928 


286922 
30923 
38324 
38926 
36928 
38923 
386938 
20331 
32932 
39934 
26936 
38838 
38840 
30388 
36966 
36376 
33986 
31606 
31085 
31916 
31920 
3192S 
31027 
31236 
31040 
31959 
31263 
31078 
31880 
31996 
3110¢ 
21118 
21120 
a1izs 
31148 


REMees MOVE LITTLE GUY DOWN+RIGHT( 4 
POKE LG, 32 
LF GY<>3i 
Gi =G 
GA=GX el 
LG@=LG-:1383 
IF GX#31 THEN 32832 

POKE LG,240 

RETURN 

IF GK< >31 THEN 308423 

GY=GY+l1 

Gx=Q 

1 G*=LG+33 

POKE LG, 249 

PETURN 

GxX=GX+l 

S/f=GY+i 

LG=LG+65 

POKE LG,240 

RETURN 

REM##s MOVE LITTLE GUY UP+LEFT(S) 
POKE LG,32 

iF GY<>@ THEN 30939 
GY#31 

GX #GX-1 

LG=LG+1983 

IF GXk=@ THEN 36932 
POKE LG, 240 

RETURN 

IF GX<>@ THEN 30946 
GY=GY-1 

Gx231 

LG=L.G-33 

POKE LG,240 

RETURN 

GX=GX- 1 

GY=GY-1 

LG=LG-65 

POKE LG, 242 

RETURN 

REMss*e POLL KEYBOARD 
J=FNRCS +1 
POKE2073,96:REM##« NO TC #a# 
KB=-S7088:R1=1238 
UP=128: DO=#32: 
UR=192: UL=144: DR=96: 
POKE KB,R1 
K=PEEK( KB) 
IF K=sUP THEN 
IF K2UR THEN 
IF K=®RT THEN 
IF K@=DR THEN 
IF K=#=DO THEN 
IF KeDL THEN 
IF K#=LT THEN 31262 
IF K#UL THEN 31270 
IF K=Z2 THEN 33 
K=0K : GOTO 3:13859 


THEN 38839 


5 


LT#16: RT=64 
DL=4e 


31269 
31210 
31228 
31230 
31246 
31250 


31290 
31282 
31218 
31212 
31229 
31222 
31232 
31232 
31249 
31242 
31258 
312S2 
31268 
31262 
31278 
31389 
31385 
31310 
31326 
31332 
31342 

£382 
31369 
31379 
31389 
31390 
31480 
31418 
31429 
31438 


31453 
31460 
3146S 
31478 
46058 


GOSUBS92aG 

GOTO 31389 

GOSUB38ESS8 

GOTO 31300 

GOSUB 30490¢ 

GOTO 313902 

GOSUB 3080d 

GOTO 3130a 

GOSUB 30202 

GOTO 31322 

GOSUB 307290 

6OTO 31389 

GOSUB 30S20 

GOTO 31300 

GOSUB 3¢eSea 

OK=K : REM SAVE OLD DIRECTION 
IF UG<oRD THEN 31839 
POKE2Z873, 173: REMes TC WORKS!!! se. 
REM#s MAKE A WHOOP FOR FINDING DOOR 
POKE S56S32,5 

POKES?7263,0 

FOR Te#1 TO S 

FOR J=_LS TO HS STEP SS 
POKES7963, J 

NEXT J 

FOR J=HS TO LS STEP -SS 

POKE S7g9es,J 

NEXT J 

NEXT I 

POKESESS2, 4+ 

FOR J=_ TO 3@0:NEXT J 

POKE RD+A, BL 

GOSU8388a6 

POKE 2073,26:REM**s NO TC AGAIN! ! se 
GOT03130¢ : 
RETURN 
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COPIER ---- 

This program will run on any disk based machine with a polled 
keyboard except the C1P. It will copy all tracks except track 0. Place 
new disk into the drive, and initialize it. Take out the initialized 
disk and place the master into the drive while copier is in memory. 
Run the copier. Depress the space bar when "OLD DISK" appears on _ the 
screen and the screen will fill with the contents of that track. Now, 
remove the master disk and place new disk into the drive. Depress’ the 
Space bar and "OLD DISK" will appear again. Replace new disk with the 
master and repeat procedure until program runs to completion. After 
copying tracks 1-39 for 5" floppies (or 1-76 for 8" floppies), you 
must copy track 0 as follows. First type "EXIT" and A* will appear. 
Type "CA 0200213,1" for 5 inch floppies or "CA 0200=01,2" for 8 inch 
floppies followed by RETURN and A* will reappear. Type "GO 0200" 
followed by RETURN. Type "2" ,then RETURN. Type "R4200",then RETURN 
while the master disk is in the drive. Remove the master disk from the 
drive and replace it with the new disk. Type "W4200/2200,8" ,then 
RETURN. Exit and depress the BREAK key and then "D". NOTE:copy drive A 
to drive A if you have are using a one drive system. 


1 FORI#1T030: PRINT: NEXT 

POKE2073, 396 

PRINT °COPIER®" 

PRINT: PRINT°COPIES ALL TRACKS EXCEPT ZERO" 
GOSUB108@ 

1@ DISK! BS 

2B FORT =A+1QGGTOB+1400 

2S Z2S=RIGHTS(STRS$(I),2) 

26 GOSUBSaaa 

2? FORJ=1TOX 

<8 PS=RIGHTS(STRS$(J),1) 

39 AS="CA DOGG="+Z$+" , °+PS 

49 DISK'AS 

45 IFCS=BSTHENPOKES7@88, 2: F =PEEK( $7088 ): IFF< >LETHEN4SS 
SO DISK!CS 

68 AS="SA °+25+" , °+PS$+° =DGG0’ "+xS( J) 

76 DISK!AS 

7S PRINT°##es% OLD DISK sse088%“ 

75 IFCS=BSTHENPOKES7OSS8, 2: F =PEEK( S7088 ): IFF< >LETHEN7S 


NO UI fv 


828 DISK! BS 
36 NEXTJ,I1 
18Q@ END 


1006 PRINT: PRINT 

101Q@ INPUT°COPY FROM DRIVE’;:BSs 

1820 IFBS< >“A* ANDBS<X >“ B“ ANDBS< >"C“ ANDBS< >°D"* THENLOLG 
1030 INPUT"“COPY TO DRIVE";CS§ 

£1640 IFCS< >"A“ANDCS< >“ B° ANDCS< >" C"“ANDCS< >"D"* THENL G34 
164S BS="SE °+ES:CS="SE °“+CS 

10SQ@ PRINT: PRINT 

1G63 INPUT°FROM TRACK";A 

1Q@6S IFA>SSORAX LORAX DINTCA)THENLOS2 

1Q@70 INPUT*TO TRACK"';B 

1675S IFB>SSORB<K GORBKX DINTC BB) THENLO7@ 

12280 IFA>BTHENLOSA 

L12SQ PRINT" 4##seee8 OLD DISK #4444440" 

Lied INPUT "READY *: aS: IFLOFTS( OS, 1)< >°Y" THENRUN 

2326 RETURN 

S269 DISK' "DIR °+2% 

SiO@ X=*VAL( CHPS$( PEEK(SSi@6))) 

S200 FORT=QTOX: XSi 5+1 *@CHRS( PEEK( SS189-J*#64 ) ): NEXT 
S368 RETURN 


PROGRAM CONVERSIONS ---- 

The ASCII keyboard is located at the address 57343 in memory. 
Note, the polled keyboard is located at the address 57088. First, look 
through the program for all variables being assigned a value by 
PEEKing this location. The PEEK is usually followed by comparisons 
with that variable to determine which key was depressed. The two 
things that will differ in programs written for ASCII keyboards and 
polled keyboards are, the keyboard is at a different address in memory 
and the comparison values are different. Here are some conversions 
from ASCII to polled done with the help of "The Challenger Character 
Graphics Reference Manual". 

100 QsPEEK(57343) 
200 IF Q=177 THEN 500 
This is a sample of two lines from a program written for ASCII 
keyboards. You must now subtract 128 from the comparison value (this 
is a hardware consideration). 
177-128s49 
fei is the ASCII value for a "1" (i.e., ASC("1")=49 ), so the program 
is looking for a "1" to be depressed on the keyboard. Using page 11 of 
the character graphics manual, the code modified for polled keyboards 
becomes; 
100 POKE57088,128 : Q=PEFK(57088) 
200 IF Q2128 THEN 500 
EXAMPLE #2 
ASCII program: 
100 Q=PFEK(57343) 
200 IF Q=212 THEN X=1 
300 IF Q=198 THEN X=2 


SUBTRACT: 
212-128284 ASCC "Tt" ) 284 (looking for a "T") 
198=128=70 ASC("F")=70 (looking for an "F") 


POLLED program: 
100 POKE57068,16 : Q=PEEK(57088) 
200 IF Q=16 THEN X=1 
210 POKE57088,8 : Q=PEEK(57088) 
300 IF Qs32 THEN X=2 


1280 6&2 16 a % 2 1 
COLUMN ADDRESSES 
c7 «#6cs.—Cti«SS ce ¢3 ¢2 ¢1 Cs 
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Ss 
“ideawuy | || 
a be DPPPPPrH 
ww 
@ # 
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USR(X) FOR COLOR BACKGROUND ---- 

This is a BASIC program that sets up an ASSEMBLER- subroutine 
under the USR(X) function. The subroutine changes the background color 
of the entire screen. Note, if a disk system is not used then the 
BASIC code; DISK!I"CA 4FD0=36,1"; must be removed from the program. 

To save the assembler program (created by this BASIC program) on 
disk, type DISK!"SA 36,1=4FDO/1" after running the program. This will 
let you call the program from disk in any other BASIC program by the 
command DISK!I"CA 4FD0=36,1" instead of running this BASIC code. 

Use the following code in BASIC (after the assembler program is 
loaded into memory) to exicute the assembler routine. NOTE: this must 
be done after the subroutine is in memory. 


POKE8955, 208: POKE8956,79 
This is the high and low addresses to tell the computer where the 
USR(X) function is located in memory. 


POKE20433,(your color choice, 0-16) 
This is your choice of color background. 


X=USR(X) 
This is the BASIC command for jumping to an assembler’ subroutine 
specified by the previous POKEs. 


168 FORI=20432T02047%3 : REROX : POKE I. X: NEXT 

200 DATRIGS 14, 169, @. 141, 242, 79, 169, 224,141, 243, 79, 173, 242, 79 
210 DATAR24, 185, L 141, 242, 79, 173; 243. 79, 105, @. 141, 243, 79, 264, 232 
220 DATAR242, 6, 142, 8, 224, 76, 228, 79, 96, 8, 2 


MEMORY TEST --- 


The following memory test is written for 4 and 3K BASIC in ROM 
machines. By changing lines 0 and 1 the program is easily adapted to 
your particular requirements. This program should be run anytime your 
computer "acts funny" as a quick diagnostic. 


Y=8i91 
INPUT"4 OR 8K"; K: TFK=4THENY#4095 
P=1025 
Q=255 

10 FORX=PTOY 
12 POKEX, Q 

NE XTX 
20 FORX=PTOY 


22 Z=PEEK (xX) 
23 IFZ<CSOQTHENGOSUB1LO® 


25 NEXTX: PRINT" PASS USING "iQ 


26 IFQ=98THENS 
30 Q=0: GOTOLO 
100 PRINT"LOCATION"; X; “WAS”; Z; "NOT"; Q: RETURN 


Mini-Floppy Disk Directory 


166 PRINT 
1416 PRINT 
128 PRINT 
1438 PRINT 
140 PRINT 


10000 
16610 
18620 
18039 
16646 
18856 
10069 
16070 
10680 
18896 
161909 
10118 


REM 
REM 
REM 
REM 


POKE 741. 76 : 


REM 
REM 


OS-65D VERSION 3.98 


-- DIRECTORY -- 
FILE NAME TRACK RANGE 
OS6SU3 Oo ©. 26 
BEXAECs 14 - 14 
CHANGE is - is 
CREATE La iS 
DELETE 2a - 2B 
DIR oh 24 
DIRSRT on." £e 
RANLST 23 - 24 
RENAME ea * £0 
SECDIR 26 - 26 
SEQLST at = £3 
TRACE 43. * £2 
ZERO 36 - 31 
ASAMPL 32 - S2 


5B ENTRIES FREE OUT OF 64 


REM BASIC EXECUTIVE 
“REM 
REM SETUP INFLAG & OUFLAG FROM DEFAUL 
X=#PEEK (16950): 
PRINT : 
PRINT 


POKE 8993, %: POKE 8994, X 
PRINT 
"13 OCT 1978 RELEASE" 


“FUNCTIONS AYAILABLE: * 


“BASIC EXECUTIVE FOR OS-65D YERSION 3. 3" 


Full Size Floppy Disk Directory 


OS-650 VERSION 3. 8 
<-- DIRECTORY — 


FILE NAME TRACK RANGE 
56502 G9 -8 
BEXEC* 9-93 
CHANGE 19-19 
CREATE 13 - 14 
DELETE 45 - 15 
DIR 16 - 16 
DIRSRT 47 - 47 
RANLST 18 - 19 
RENAME 20 - 24 
SECDIR a4 - 24 
SEGLST 22 - 23 
TRACE 24 - 24 
ZERO 25 - 26 
ASAMPL 27 - 27 


28 ENTRIES FREE OUT OF 4 


PRINT 


‘5 CHANGE - ALTER WORKSPACE LIMITS" 


4 DIR - PRINT DIRECTORY" 


UNLOCK - UNLOCK SYSTEM FROM END USER MODIFICATIONS" 


UNLOCK SYSTEM 


REPLACE “NEW" AND “LIST” 


POKE 7590, 78 
ENABLE CONTROL=C 


POKE 2073,173 


REM 
REM 


POKE 2893.55 : 
PRINT : 


DISABLE “REDO FROM START" 


POKE 2894.8 
"SYSTEM OPEN" 


PRINT END 
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NPUT 
INPUT 
=i + 


INPUT 


IN "WANT TO 
IF MIDSCAS, 1, 19<>"Y" 
“HOW MANY 


GOTO 1798 
“WANT TO LEAVE ANY Bip ie ROOM": AS 


IF MID 


INPUT 


“HOW 


$CAS, 1,15<¢5"" 
“HOW MANY BYTES": B 


PRINT 


L=12670+B*«307e2 : 
IF B<> 138 


THEN 


L=L+B 
PRINT: PRINT 


PRINT 
INPUT 


IF MIDSCAS 


INPUT 


PRINT 
MP=PEEKC 8968 > 
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. INPUT 
IF MID 
INPUT 


U=U-8 

PRINT: PRINT 
PRINT “LEAVY 
INPUT 
LF 
IN 


REM 
aeuT 


Tr A 
INPUT 


IF WO<i4 OR WO>255 THEN PRINT 


PRINT: PRINT 

Us ¢(MP+1>*256 
DO YOU WANT TO rabid ANY ROOM AT THE TOP": 

$CAS, 1, 19<>"Y" 289 

“HOW MANY BYTES” ‘BS 


“THE BASIC WORKSPACE WILL BE SET TO END AT": U 
CMP+1>*256-U: “BYTES FREE AFTER THE WORKSPACE" 


“CHANGE PARAMETER UTILITY" 


DO EVERYT 


INT 


“ANSWER 
REM L=$317E PLUS Buscaa 


LEAVE ANY ROOM BEFORE THE WORKSPACE": 
THEN 1798 
BYTES“: 8 


IN 
“IS THAT ALR 


“THE BASIC WORKSPACE WILL BE SET TO START AT":L 
2: MBYTES FREE IN FRONT OF THE WORKSPACE" 


LEAVING“: L-1267@: 
"IS THAT ALRIGHT" 
24,139="Y" THEN 242 
“NEW LOWER LIMIT": Lb 


THEN 1? 


“YOU HAVE": (MP+1974: "K OF RAM" 


as 


THE 


IGHT *: AS 


“IS THAT ALRIGHT" 


yy 


HEN 320 
BMei Fit BF 
PRINT (CMP+13*256-U: “BYTES 
eaeuT PRINT"YOU WILL eae ee ee FREE IN THE WORKSPACE" 
IF MIDS$CAS, 1, 149<>" 


Ren NOW DO THE ADJUSTMENTS 


POKE13e, U-INT CU/2569*256: POKE133, INT(U/256> 
cohen eee POKE121, INTC CL 4139/7256): POKEL, @: NEW 


WILL BE FREE 


THEN RUN 


PRINT 


REMARK HING ELSE FIRST 
att Ages BASIC’S WORKSPACE LIMITS ¢Y¥/N)>": 


EN 
Y 12 PAGE BUFFERS DO YOU WANT crags THE WORKSPACE": 
IF B<@ OR B>e THEN PR OR 2" 


ee CHANGE PARAMETER UTILITY UNDER OS-65D VERSION 3. @ 


GOTO 48 


) 
>; IF £<12679 THEN 204 
: "BYTES WILL BE FREE BEFORE THE WORKSPACE" 


“THE TERMINAL WIOTH IS SET POR «1, PEEKCe3> 
NPUT “DO YO i AS 


POKE 23. WD 
NC=CINT CWO/149-19%14 
POKE 24,NC 


PRINT : 


PRINT 


INPUT “WOULD 


IF A$ 
INPUT 


ae as a aaa THEN PRINT 


<> a 


PRINT 


“BASIC 


ea TO CHANGE IT ¢Y/N>" 


“BAD VALUE" 


& THE ASSEMBLER USE": 


"K WORKSPACES ¢": PEEK(8960): "PAGES" 


POKE 896 


RETURN 


“BAD VALUE" 


As 


AS 


AS 


U>491S52e OR UCL+3 THEN 312 
AFTER THE WORKSPACE" 


GOTO 1656 


CPEEK (896803941) 74: 


YOU LIKE TO CHANGE THIS CY/ND“: AF 
Y" THEN 1179 
“HOW MANY PAGES SHOULD THEY USE": KK 


: GOTO 1148 


B 


146 REM FILE CREATE UTILITY OF OS-65D VERSION 3.9 


26 REM 

4@ REM EXECUTE: 

3@ REM 

186 REM 3D7E AGG ZERO LDY #2 

1146 REM 3D86 A2EC LOX #12 

12@ REM 3082 98 TYA 

130 REM 3D83 997E31 ONE STA $317E.,.¥ 
14@ REM 3086 C8 INY 

15@ REM 3D87 DOFA BNE ONE 

168 REM 3089 EESS3D INC ONE+2 
176 REM 308C CA DEX 

186 REM 308D DOF4 BNE ONE 

196 REM 3D8F 6@ RTS 

2696 REM 

236 DATA 162, @, 162, 12, 152, 153. 126. 49. 280. 268, 258 


DATA 239, 133, 61, 262, 208. 244, 96 

FORT #15742T0157539: READD: POKETL, BD: NEXT 

POKES9SS, 126: POKES956. 61: X2USRCX>: POKESSSS, 212: POKES9S6, 34 
PRINT: PRINT“FILE CREATION UTILITY": PRINT 

PN=11897 

INPUT"PASSWORD": AS: IFASC>"PASS“ THENEND 


PRINT 


DEF FNACK) =16# INT CX/18 > +X-1LO*e INT CX/7185 
DEF FNBCX3e21OxINT CX/169+X-16* INT (X16) 
DATA 1,2, 3.4.5.6. 7,83,9,A,B8,C 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


“CREATES AN ENTRY IN DIRECTORY FOR A NEW FILE" 

“AND INITIALIZES THE TRACKS THAT THE NEW FILE WILL" 
“RESIDE ON. THE TRACKS WILL CONTAIN NULLS WITH A" 
"RETURN AT THE END OF THE TRACK. * 


600 
166066 
16016 
16036 
16846 
18859 
18636 
18699 
18895 
16106 
16116 
26608 
26616 


INPUT“FILE NAME": AS 

IF LENCAS2>56 THEN 418 

IF LENCAS$)<6 THEN AS=AS+" “: GOTO 448 
IFMIDSCAS, 1. L9C"A"“ORMIDSCAS, 1, 195"2" THENS2S 
REM CHECK ALLOCATION + WATCH FOR NEW NAME 
DIM AL#C76) 

FORI=6TO76: AL“CI>=G: NEXT 

DISK! "CA 2E79=G8. 2": GOSUB1GGGG 

DISK! "CR 2E79=68, 1": GOSUB1L806e 

REM 

REM FIND FREE ENTRY 
GOSUB 26606 

IF FL2=i THEN DISK! "SA 68, 122E79/71": END 
DISK! "CA 2E79=268. 2": GOSUB1LEG98 

IF FL=1 THEN DISK! “SA 68, 222E79/71": END 
PRINT“ ** DIRECTORY FULL **": END 


IN DIRECTORY 


REM 

REM SUBROUTINE USED BY ALLOCATION CHECKER 

FOR I=PN+6 TO PN+254 STEP 8 

IF PEEK(I-6)=35 THEN 101900 

C$="": FORK=1T06: C$=C$+CHRS$ (PEEK (I-7+K> >: NEXTK: IFC$<>A$THEN1O09@ 
PRINT"** FILE NAME ": CHR$(34): A$: CHR$(349:" IN USE #*": RUN 


TO=FNBCPEEKCI> > TOI@FNBCPEEKCI+1)> 

FORK=TGTOT9: ALZCK>=-1: NEXTK 

NEXT I 

RETURN 

REM 57 
REM SUBROUTINE USED TO ENTER NEW NAME INTO DIRECTORY 
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20832 


FOR I=PN TO PN+248 STEP 8 


20040 IF PEEK<I>=35 THEN 20080 

20@5@ NEXT I 

2006@ FL=@: RETURN 

2@08@ PRINT : INPUT "FIRST TRACK OF FILE": T@ 

20690 IF T@<9 OR T@>76 THEN 20080 

20100 INPUT “NUMBER OF TRACKS IN FILE": NT 

20140 IF NT<1 OR NT>68 THEN 20100 

20445 T9=T@+NT-4 

26120 FK=@ 

20138 FOR K=T@ TO T9 

2014@ IF ALXCK> THEN PRINT“#* TRACK": K: "IN USE 4": FKm4 
20158 NEXT K 

20168 IF FK<>@ THEN RUN 

2017@ PG=12 

2018@ INPUT "12 PAGES PER TRACK. IS THIS OK": Bs 

2019@ IF MID$¢B$,1,4)="¥" THEN 2a220 

2@200 INPUT “HOW MANY PAGES PER TRACK THEN": PG 

20210 IFPG<>12THENPRINT: PRINT"NOTE: ALL DEFAULTS ARE SET FOR 412 PAGES!" 
26220 FORJ=OTOS: POKEI+J, ASC(MIDS<(AS, J+4, 14>: NEXT 

26250 POKE I+6,FNACT@> : POKE I+?, FNACT9> 

20260 FORI=1TOPG: READP$: NEXTI 

20278 FOR I=T@ TO T9 

26280 TS=RIGHTS(STR$(I+100), 2) 

20290 DISK! "IN “+T$ : DISK!"SA "+T$+4+", 1=347E/"+P$ 

203418 NEXT I 

20320 FL=1: RETURN 

4@ REM DELETE FILE UTILITY UNDER OS-65D VERSION 3. @ 

20 REM 

3@ PRINT: PRINT"DELETE UTILITY": PRINT 

32 PRINT “REMOVES AN ENTRY FROM THE DIRECTORY": PRINT 

33 INPUT "PASSWORD": A$ : IF A$<>"PASS" THEN END 

34 PRINT 

35 FLAG=@ : PN=1189? 

49 INPUT "FILE NAME": AS 

45 IF LENCA$)>6 THEN 42 

47 IF LENCA$)<6 THEN A$S=AS+" " : GOTO 47 

S@ DISK ! “CALL 2&79=e8, 1" 

60 GOSUB 10@@@ : IF FLAG=41 THEN DISK ! “SAVE @8,1=2E79/1" : END 
7@ DISK ! “CALL 2£79=@8, 2" . 
8@ GOSUB 10000 : IF FLAG=41 THEN DISK ! “SAVE 08, 2=2E79/1" : END 
9@ PRINT “#" “» CHR$(34): AS: CHR$(34>:" NOT FOUND IN DIRECTORY **" : PRINT 
4@@ END 

4@@0@ REM 

46040 REM SEE IF FILE NAME A$ IS IN DIRECTORY BUFFER 
49020 REM 

4603@ FOR I=PNT TO PN+248 STEP 9 

46040 FOR J=I TO I+5 

40050 IF PEEK<J><>ASC(MID$S(AS, J-I+4,4>> THEN 10120 
4@@6@ NEXT J 

40070 FOR JmeI TO I+S : POKE J, ASCC("#"> : NEXT J 

40880 POKE I+6,@ : POKE I+7,@ 

40090 FLAG=#1 : RETURN 

46100 NEXT I 

40@14@ FLAG=@ : RETURN 


1@ REM DIRECTORY UTILITY FOR OS-65D VERSION 3.2 


2@ REM 


38 NF=6 
46 PN=#11897 
S@ DEF FNACK) #10" INT ¢CK/16)+X-1L64 INT CX/16) 


86 DV=aiL : Yui : 


x=PEEK C8994) 


96 IF X#<¥ THEN 119 


160 DV=DY+1 : 


Yx¥+yY : GOTO 98 


116 PRINT “LIST ON LINEPRINTER INSTEAD OF DEVICE #*: DY: 
120 INPUT As : 
1436 IF MIDSCAS. 1,.4592"°4" THEN DY=4 


16800 
16810 
18620 
16038 
18835 

6040 

8650 
16068 
16670 
18e8e 
16699 
16138 
16146 
11668 
116198 
11820 
11046 
11656 
11666 
118676 
11880 
118690 
11120 
11118 
11130 
11146 


REM 

REM PRINT A DIRECTORY OUT 

REM 

PRINT #DY : PRINT @DV., “OS-65D VERSION 3. 0" 
PRINT #0V," -- DIRECTORY --" : PRINT #DY 


PRINT #D¥, “FILE NAME TRACK RANGE" 
PRans 8Ots Sse See Seas * 
DISK ! “CALL 2E&79=88., 1" 

GOSUB 11800 

DISK ! “CALL 2E79=88, 2" 


GOSUB 11866 

PRINT #DV : PRINT #0¥V., NF: “ENTRIES FREE OUT OF 64" : PRINT #D¥V 
END 

REM 

REM READ DIRECTORY OUT OF BUFFER INTO ARRAYS 
REM 

FOR I=PN TO PN+248 STEP 8 

IF PEEK<CI92#35 THEN NF=NF4+1 : GOTO 11136 

Nga" « 

FOR JaI TO I+35 

NS@N$+CHRSCPEEKCJ> > 

NEXT J 

PRINT #DV, N$: TAB(12): FNACPEEKCI+6) 9: TABC169; *=—"3 
PRINT #D0Y¥, TAB<C179; FNACPEEKCI+7) > 

NEXT I 

RETURN 
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ban SORTED DIRECTORY UTILITY FOR OS-65D VERSION 3. @ 


2Q 

30 NFaQ 

4@ PN=11897 

SQ DEF FNACK> @LOWINT (%/16)4X—LEMINT (X16) 

6Q DIM NM$¢664), TO%(649, TI%C64) 

70 AVaQ 

80 DVei : Yet : XmPEEKC8994) 

92 IF X=<y¥ THEN 86 

Q4 DVeOV+L : Ye¥4+9 : GOTO 82 

86 PRINT: PRINT "SORTED DIRECTORY UTILITY": PRINT 
30 INPUT “SORTED BY NAME OR TRACK (N/T)") 2% 

95 PRINT “LIST ON LINEPRINTER INSTERD OF DEVICE #"; Dv; 
396 INPUT A$ : IF MIDSCAS>4.1)="Y" THEN DY 

490 IF 2$="N" OR z2S="T" THEN 10000 

1410 PRINT “THEN IT WILL BE UNSORTED" 

140000 REM 

140010 REM PRINT A DIRECTORY OUT 

19020 REM 

40030 PRINT #DV : PRINT #DV,"OS-65D VERSION 3. 0" 
49035 PRINT #DY," -— DIRECTORY --" : PRINT #D¥V 
18840 PRINT #DV, "FILE NAME TRACK RANGE" 
TPOSC PRINT. BOY. 8 4o=-4e5—sabsaeemecceeees 
40060 DISK ! "CALL 2E79=<98, 1" 

149078 GOSUB 11900 

40088 DISK ' “CALL 2E79=08, 2" 

19990 GOSUB 11900 

40095 IF z$="N" THEN GOSUB 20e0e 

10097 IF 2$="T" THEN GOSUB 21200 

40100 FOR I=0 TO AY-1 

10110 PRINT #DV. NMS<ID; TABC12); T@XCID;s TABS 46); "—"s TABC4 795 T9XCT) 
10130 PRINT #D0V : PRINT #DV, 64-AV; "ENTRIES FREE OUT OF 64" : PRINT #0V 
10140 END 

1100@ REM 

44010 REM READ DIRECTORY OUT OF BUFFER INTO ARRAYS 
+4955 I=PN TO PN+248 STEP 8 

144050 IF PEEKCID=35 THEN 11130 

11060 NS=CHR$<PEEK (I) )+CHRS (PEEK (T+ > 4CHRS<PEEK(I+2) > +CHR$<PEEK(I+3) 
14070 NM$CAY) =NS+CHRSCPEEKCI+4 > )+CHRSCPEEKCI+5) 
44100 TOXCAY) =FNACPEEKCI+6)D 

14140 TOXCAY) =FNACPEEKCI+7)) 

44120 AVSAVE4L 

14430 NEXT I 

41146 RETURN 

20000 REM 

20610 REM SORT DIRECTORY BY NAME 

200415 REM SHELL METZNER SORTD 

20020 REM 

20022 MeAV=1 

20025 MmINTCM/2> 

20030 IF M=@ THEN RETURN 

20032 JaQ : K=AY-1-M 

20040 IaJ 

2ees@ Lar+m 

20070 IF NM$CIO<NMS<L> THEN 20420 

20080 TS=NM$C I>: NM$CI>=NM$(L>: NMS(L=T$ 

20090 TH=TOXCL): TAXCL#TOX(LD: TOXCL BT% 

2Q100 TeTOXCL): TINCT ATINCLD: TINCL TH 

29105 IsI-M 

20110 IF I>=@ THEN 20e5e 

20120 Jaj+1 

20120 IF JK THEN 20025 

20148 GOTO eeado 

24000 REM 

21010 REM SORT DIRECTORY BY TRACK 

21020 REM 

21922 M=AV-1 

24025 M=INTCM/2> 

54030 IF M=0 THEN RETURN 

214032 J=0 : K=AY—-1—-M 

21048 I=J 

2105Q L=I+M 

24970 IF TOXCI2<TO@X<L> THEN 21129 

24086 TS=NM$CI9:NM$CI>=NM$C(L>: NM$C(L=TS 

24890 TX=TOXCLT?: TOXCLT > =TOXCL)D: TOXCL TZ 

24100 TX=TOZCTI: TINCT ATI“ZCL): TIZCLIATY 

24105 I=I-M 

2411@ IF I>=0 THEN 21058 

24120 J=J+1 

24130 IF J>K THEN 21025 

214149 GOTO 21040 
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12 
20 
38 
60 
38 
78 


7? 

78 

86 

96 

16@ 
118 
12e 
206 
2198 
226 
238 
246 
258 
268 
276 
286 


19 
20 
38 
35 
4@ 
45 
47 


REM RANDOM ACCESS FILE LIST UTILITY UNDER OS-65D VERSION 3. @ 
REM 

PRINT : PRINT “RANOOM ACCESS FILE READ" : PRINT 
INPUT “FILE NAME": N¢ 

IF LENCN#)>6 THEN 48 

OISK OPEN. 6, N$ 

INPUT "EXAMINE SINGLE RECORDS OR GROUPS (S/G>": RS 
IF R$="G"“ THEN 280 

IF R$<>"S" THEN 735 

PRINT : INPUT “RECORD NUMBER":R 

DISK GET.R 

INPUT #6, AS 

PRINT : PRINT AS 

GOTO 8@ 

PRINT : INPUT “FIRST RECORD": RO 

INPUT "LAST RECORD": R9 

IF R9O<CR@ THEN 286 

FOR R=RO TO RI 

DISK GET.R 

INPUT #6. AS 

PRINT : PRINT AS 

NEXT R 

GOTO 75 


REM RENAME FILE UTILITY UNDER OS-65D VERSION 3.2 
REM 

PRINT : PRINT “RENAME UTILITY" : PRINT 

FLAGs@ : PN#11897 

INPUT “OLD NAME": AS 

IF LENCAS$)>6 THEN 48 

IF LENCAS><6 THEN AS#AS+" “ : GOTO 47 


3@ DISK ! “CALL 2&79=#@8, i" 

66 GOSUB 16000 : IF FLAG=1 THEN DISK ! “SAVE @8,.1=#2E79/71" : END 
76 DISK ! "CALL 2&E79=2@8., 2“ 

86 GOSUB 10000 : IF FLAG#1 THEN DISK ! “SAVE 68. 2=2E79/71" : END 
9@ PRINT “## “: CHRS$C34): AS: CHREC349:" NOT FOUND IN DIRECTORY *«" 
1408 END 

18668 REM 

149016 REM SEE IF FILE NAME AS IS IN DIRECTORY BUFFER 

19028 REM 


40636 FOR I=PNT TO PN+248 STEP & 

10040 FOR JaI TO I+5 

10050 IF PEEKCJX<SASCCMIDSCAS, J-I+1,.455 THEN 10100 

16666 NEXT J 

106706 PRINT "RENAME “: CHR$¢34): A$: CHRS$(345: : INPUT " TO": ANS 
180675 IF LENCANS>>56 THEN 18076 

18686 IF LENCANS$><6 THEN ANS#ANS+" “ : GOTO 169886 

10682 IF MIDSCANS, 1,.1459<¢"A" OR MIDSCANS, 1,149>"Z" THEN 186678 
16685 FOR J=I TO I+S : POKE J. ASCCMIDSCANS, J-I+i,1)5> : NEXT J 
10690 FLAG=1 : RETURN 

16106 NEXT I 

16116 FLAG#@ : RETURN 
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192 
15 
20 
22 
24 
38 
40 
38 
60 
7@ 
88 
98 
95 
188 
118 


16 
20 
38 
40 
6e 


REM SECTOR DIRECTORY UTILITY UNDER OS-650 VERSION 3. 2 
REM 
PRINT : PRINT “SECOIR" : PRINT 
PRINT “USES OS-65D’S DIR COMMAND TO PRINT OUT A SECTOR" 
PRINT "MAP OF A GIVEN RANGE OF TRACKS" : PRINT 
PRINT : INPUT “FIRST TRACK": TO 
IF T@<i1 OR T@>76 THEN 32 
PRINT : INPUT “LAST TRACK": TS 
IF T9<T@ OR T9376 THEN SO 
PRINT : PRINT “SECTOR MAP DIRECTORY" : PRINT 
FOR I#100+T@ TO 1060+T9S 
DISK ! "DIR “+RIGHTSCSTRS$C(T), 2) 
PRINT 
NEXT I 
END 


REM SEQUENTIAL FILE LISTER UTILITY UNDER OS-650 VERSION 3. @ 
REM 

PRINT : PRINT “SEQUENTIAL FILE LISTER" : PRINT 

PRINT "TYPE A CONTROL-C TO STOP“ 


PRINT : INPUT “FILE NAME”: AS 


70 IF LENCAS>6 THEN 60 


38 

1986 
110 
126 


DISK OPEN. 6. A$ 


INPUT #6, DS 
PRINT Ds 
GOTO 160 


16 REM TRACE UTILITY UNDER OS-65D VERSION 3.9 


218 
220 
238 
248 
258 
26@ 


REM 
PRINT : PRINT “TRACE UTILITY" : PRINT 
PRINT “WHEN BASIC’S TRACE FEATURE IS ENABLED. BASIC WILL PRINT" 
PRINT "OUT EACH LINE NUMBER OF THE PROGRAM BEFORE IT IS EXECUTED" 
PRINT 
INPUT “ENABLE OR DISABLE ¢E/D>)*"; AS 
IF As="E" THEN 180 
IF AS="D" THEN 200 
GOTO 40 

REM 

REM ENABLE 

REM 

REM THIS MUST ALL BE DONE AS ONE LINE! 

REM 

L=20141: POKEL, 32: POKEL+1, 216: POKEL+2, 28: POKEL+3, 234: POKEL+4, 234 
END 

REM 

REM DISABLE 

REM 

REM THIS MUST ALL BE DONE AS ONE LINE! 

REM 

L=2011: POKEL, 24: POKEL+14, 144: POKEL+2, 2: POKEL+3. 230: POKEL+4, 200 
END 


5 Ren FILE ZEROING UTILITY OF OS-65D VERSION 3. @ 


ns rte TO ZERO OUT DATA BUFFER: EXECUTE THIS: 
@ REM 3O7E ABBE ZERO LDY #2 


REM 3D8Q@ A26C LOX #12 

REM 3082 98 TYA 

REM 3D83 997E31 ONE STA $317E,Y 
REM 3086 C8 INY 

REM 3D87 D@FR BNE ONE 

REM 3089 EESS30 INC ONE+2 
REM 3D08C CA DEX 

REM 3SD8D DOF4 BNE ONE 

REM 3DSF 60 RTS 


REM 

DATA ee Rae oa es cee Seee So eee Coe 

DATA 238.133, 61, 202. 288, 244, 96 

FORT=1s742T015759: READD: POKEL, D: N NEXT 

tt TR ap POKE89S56., 61: App eh abes POKESSS55, 212: POKES9S6, 34 
DEF SE eir ETE Soon Cree aror C%716> 

PRINT: RINT“FILE ZERO UTILITY": PRINT 

PRINT “COMPLETELY ERASES THE CONTENTS OF A DATA FILE" 


RINT 

INPUT "PASSWORD": AS : IF AS<CD>"PASS" THEN END 
INPUT “FILE NAME": AS 

IF LENCAS>>6 THEN 338 

ae “ase. THEN AS#AS+" “" : GOTO 358 


DISK! "CA 2679888, 1": GOSUB 19890 
IF FL<S>@ THEN 485 

DISK! "CA_2E79=08., 2": GOSUB 18800 

IF ie THEN PRINT "** FILE NAME NOT IN DIRECTORY **": END 


PG=12 
PRINT: i pi dB Is IT oA a 12 PAGE DATA FILE”: ARS 
INPUT “THEN HOW MANY PAGES PER TRACK": PG 


IF PG<i OR PGS12 THEN 438 
DATA 1.2, 3, 4,5, 6, 7, 8,9,A,B.,C 


468 FOR I=i TO PG : READ P$ : NEXT I 
480 FOR I=T6 TO T9 

490 TS2RIGHTS¢(STRS(I+19003, 2) 
Y66 DISK! "SA “+T$+", 183L7E/"+P$ 
318 NEXT I 

28 

18668 REM 

16010 REM FIND AS IN DIRECTORY 
19029 REM 

18636 FOR I@PN TO PN+24S STEP 8 
186648 B$="" 


10056 FOR KI TO [+5 : BS=2BS$+CHRS(PEEKCK>> : NEXT K 
10066 IF AS<OBS THEN 1889 

18670 TO=FNACPEEKCI+6)) : TOSFNACPEEKCI+73) 

18689 FL=i : RETURN 


NEXT I 
10100 FL=0 : RETURN 
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ONIG SCIENTIFIC 


1333 S$. Chillicothe Road « Aurora, OH 44202 
Phone: (216) 562-3104 


Printed in U.S.A. 


